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IN THIS BOOK YOU'LL FIND: 


A BEGINNER’S GUIDE TO KIM PROGRAMMING: 


guidelines which take the absolute beginner, step by step, through 
the fundamentals of understanding and writing programs. 


RECREATIONAL PROGRAMS: 


dozens of programs including games, diversions and educational! 
programs; fully detailed so that you can learn from the programming 
techniques as well as have fun. All programs run on the basic 

KIM-1 system. 


DIAGNOSTIC AND UTILITY PROGRAMS: 


to help you test your KIM computer — to help you test other devices, 
such as cassette recorders — and to make your KIM a more 
powerful machine. 


EXPANDING YOUR KIM: 


guidelines on how to expand your KIM from the basic small-but- 
powerful KIM-1 system to a huge-and-super-powerful machine; 
understanding the jargon; seeing what’s available in both hardware 
and software. 


CONNECTING TO THE WORLD: 


an introduction to the methods by which KIM can read or sense 
other devices, and can in turn control other mechanisms. 


POTPOURRI: 


other useful pieces of information about your KIM system; reference 
material, hints, etc. 
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A BEGINNER'S GUIDE TO KIM PROGRAMMING. 


Running programs can be fun. But writing programs can be 
even more fun .. and exasperating, and exhilirating, too! 


When you get the hang of it - and it will take time - 
you'll be able to create your own games, diversions, or 
useful routines. This section tries to introduce you to 
the mechanics of programming, so you can find your own way 
at your own speed. 


Don't be afraid to use ideas from other parts of this book. 
If you like, try changing parts of a program or two and see 
what happens. And you can borrow whole sections of coding 

from another program if it does something you want. 


LOOKING AT MEMORY 


Random Access Memory. 


If you've just turned your KIM system on, press the 

RS (Reset) button to get things started. Hit the following 
keys: AD (for ADDRESS) 0000. You've just entered the 
address of memory cell 0000, the lowest numbered one in 
memory. The display will show 0000 (the number you 
entered) on the left. On the right, you'll see the 
contents of cell 0000: it will be a two digit number. That 
number might be anything to start with; let's change it. 


Press key DA (for DATA). Now you're ready to change the 
contents of cell 0000. Key in 44, for example, and you'll 
see that the cell contents have changed to 44, 


Hit the + button, and KIM will go to the next address. 
As you might have guessed, the address following 0000 is 
0001. You're still in DATA mode (you hit the DA key, 
remember?) , SO you can change the contents of this cell. 
This time, put in your lucky number, if you have one. 
Check to see that it shows on the right hand part of the 
display. 


This kind of memory - the kind you can put information into 
- is called RAM, which stands for Random Access Memory. 
Random access means this: you can go to any part of memory 
you like, directly, without having to start at the lowest 
address and working your way through. Check this by going 
straight up to address 0123 and looking at its contents 
(key AD 0 1 2 3); then address 0000 (key AD 0 0 O 0), which 
should still contain the value 44 that we put there. 


Hexadecimal Numbers 





Now that you're back at address 0000, let's step through 
several locations using the + key. Don't worry about 
contents too much. 0001 will still contain your lucky 
number, of course, but keep stepping with the + key until 
you reach 0009. What will the next address be? Most people 
would think that the next number should be 0010, and that 
would be correct if KIM used the familiar decimal numbering 
scheme. But KIM still has six more digits to go past 9, 
because it useS a computer numbering scheme called 
Hexadecimal. Hit the + key and you'll see address 000A come 
up. 


Don't let the alphabetic confuse you - to KIM, A is just 
the digit that comes after 9. And there are more digits to 
come. Keep pressing the + button and you'll see that A is 
followed by B, C, D, E and F. Finally, after address OOOF, 
you'll see address 0010 appear. 


A word about pronunciation: don't call address 0010 "ten"; 
say "one zero" instead. After all, it isn't the tenth value 
after 0000; it's really the sixteenth (the word Hexadecimal 
means: based on sixteen). 


If you don't understand why the letters appear, don't worry 
about it too much. Just understand, for the moment, that 
the alphabetics represent genuine numbers. So if you're 
asked to look at address O1EB, you'll know that it's a 
legitimate address number like any other. And if you're 
told to store a value of FA in there, go right ahead - 
you're just putting a number into memory. 


When you get time, you'll find lots of books that explain 
Hexadecimal numbering in detail. There's even an appendix 
in your 6502 Programming Manual on the subject. It makes 
important and worth-while reading. But for now, just 
recognize that although the numbers may look a little 
funny, they are still exactly that: numbers. 


Read Only Memory 


So far, we've talked about one kind of memory, called RAM. 
You recall that we said that you can store numbers into 
RAM. 


There's another kind of memory in KIM, but you can't store 
numbers there. It's called ROM, for Read Only Memory. This 
kind of memory contains fixed values that cannot be 
changed. 


For example, let's look at address 1C3A (key AD 1 C 3 A). 
You'll see the value 18, and that value never changes. Try 
it: press DA 6 6 to try to change the contents to 66. See 
how it won't work? 


ROM contains pre-stored programs which do important things ~~~ 
like lighting the display, detecting keyboard input, and 
reading or writing your cassette tape. These programs are 
called the Monitor. In fact, the name KIM stands for 

Keyboard Input Monitor in recognition of the importance of 
these programs. We'll talk briefly about the Monitor 

programs later. 


Special Memory Locations 


A few addresses in KIM are connected to things that aren't 
really memory at all. You can read up on them in the KIM 
User Manual when you're ready; we'll just point out a few 
examples here. 


If you try to store a number into address 1700, for 
example, you might find that instead of storing the value, 
KIM will convert it to voltages and deliver these voltages 
to certain pins on your Application Connector at the edge 
of the board! Another example: address 1704 connects to a 
very fast timer - look at that address and you'll see 
"time going by" as a blur! 





MINI-PROGRAM A: Swap the contents of two locations 
This is our first beginner's program. 


It doesn't do much: just exchanges the contents of 
locations 0010 and 0011. But it's a start, and you'll 
learn quite a few things about getting KIM programs 
going. 


CAUTION: Before running this or any other program, be 
sure that you have set the contents of the KIM "vector" 
locations as follows: 


Set address 17FA to 00 
Set address 17FB to 1C 
Set address 17FE to 00 
Set address 17FF to 1C 


The first two locations are needed so that your SST 
switch and ST key will work right. The last two make the 
BRK (break) instruction behave properly. YOU MUST ALWAYS 
SET UP THESE LOCATIONS AS SOON AS YOU TURN ON YOUR KIM 
SYSTEM. 


Loading the Program 


We'll take time to describe how the program works later. 
First, let's see how to load it. A listing usually 
looks something like this: 


0200 AS 10 START LDA 10 address 10 to A 


0202 A6 11 LDX 11 address ll to X 
0204 85 11 STA 11 A to address 11 
0206 86 10 STX 10 X to address 10 
0208 00 BRK stop the program 


The business end of the program - the part that goes into 
the computer - is the group of numbers on the left hand 
side. The stuff on the right helps explain what the 
program does. 


If you look at the numbers on the left, you'll see that 
the first one, 0200, looks like an address. That's 
exactly what it is, and we can start by entering it with 
AD 0 200. The next number is A5, and that will be its 
contents. So hit DAA 5, and the display will confirm 
that we've put it in. 


Keep going on the same line. Each line of the program 
listing may contain more than one value - for more than 
one address. 


The next value is 10, and it needs to go into 0201. 

You don't need to enter the address. Just hit the + 
key and there you are - enter 1 0 and you've got it. 
Notice you didn't need to hit DA; you stay in Data mode 
until you press the AD key. Continue to the next 

line: just hit + A 6 + 11 and keep going until you've 
put the 00 in location 0208. Congratulations! You've 
loaded your first program. Now go back and check it 
for correctness. Hit AD 0 2 0 O and use the + key to 
step through and check the values. 


Now let's run the program and see if it works. First, 
look at the contents of addresses 0010 and 0011. Make 
a note of them; when the program runs, it will swap 
those two values. 


Keep in mind that loading the program doesn't make 
anything happen. You have to run it to do the job - 
and that's what we'll do next. 


Running the Program 


Set address 0200. That's where the first instruction 
in the program is located - you may have noticed that 
it's marked START in the listing. Now the display 
shows 0200 A5, and we're ready to go. So - hit GO. 
And the program will run. 


Doesn't take long, does it? The display will have 
changed to 020A xx. If the display shows any other 
address, something's wrong. Check that your SST switch 
is off (left), that the program is entered correctly, 
and that your vectors are OK. 


Your program ran in less than a fifty thousandth of a 
second. No wonder you didn't see the display 
flicker. 


Now check that the program did indeed run correctly by 


looking at the contents of locations OOIO and 0011. 
¥You'11 see that they have been exchanged. 
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How it works 


Inside the Central Processor (the heart of the 
computer) are several temporary storages called 
registers. You can LOAD many of these registers with 
the contents of memory; and you can STORE the contents 
of the registers into memory. The two registers we are 
using here are called A and X. 


If we Load A from address 10, A now contains a copy of 
the contents of 0010. Location 0010 itself won't be 
changed; it will also contain that number. We do the 
same thing when we Load X from address 0011. 


Now our A and X registers contain copies of the numbers 
in 0010 and 0011 respectively. If we Store A into 
address 0011, that address will now contain a copy of 
the value in A - which was originally the contents of 
address 0010, remember? Finally, we Store X into 0010 
to complete the swap. 


Look at the listing again. On the right hand side, we 
have the program exactly as we have described it, but 
abbreviated. You can see that LDA means Load A and so 
forth. The BRK (Break) at the end stops the program. 


Step by Step 


Let's go through the program a step at a time - 
literally. Maybe you're satisfied that it works. Even 
so, follow this procedure. It will show you how to 
test any KIM program. ; — 


Pirst go back to addresses 0010 and 0011 and put a 
couple of brand new numbers there. This will help you 
see the computer operating. 


Wow set address 0200 again, but don't press GO yet. 
w ‘re going to "Single Step" our program, and see every 
struction work. So slide the SST (Single STep) 


seitch over to the right ... and then read the next .. 
section carefully. 


1] 


Seeing the Registers 


Registers A and X, plus quite a few we haven't talked 
about, are inside the 6502 microprocessor chip. There's 
no way you can view them - they are buried deep within 
the electronics. 


To help you out, the KIM Monitor system will write out 
a copy of these registers into memory where you can 
inspect them. The contents of the A register may be 
seen at address O0OF3, and the contents of the X 
register are at OOF5. 


Don't be confused: These locations are not the actual 
registers, just copies made for your convenience. But 
it's a great convenience, for it allows you to see 

everything that's going on inside the microprocessor. 


A Small Step for a Computer, but ... 


If you're set up at location 0200 and your SST switch 
is on, hit the GO button once. The display will show 
0202. That means: instruction at 0200 completed, ready 
to do the one at 0202. 


Okay, let's check everything in sight. The first 
-instruction was to load the A register, right? Enter 
address O00F3 and check that its contents (which 
correspond to the contents of A) are indeed the value 
from address 0010. If you like, look at 0010 and 
confirm that it hasn't changed. 


Now for a clever KIM touch. If you're ready to proceed 

with the next instruction, hit PC (for Program Counter) 
and you'll find yourself back at address 0202, ready to 
perform the next instruction. 


You've executed one instruction, performed one program 
step. Remember this: No matter how complex the program, 
it always operates one simple step at a time. And now 
you know how to check out each step, individually. 


Hit GO and execute one more instruction. Check it out - 
remember that you'll find X at address OOFS. 
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From this point, find your own way through the last two 
instructions. Don't bother about the BRK (Break): it 
just stops the program. As the two registers are 
stored, you'll want to check that the memory addresses 
have been changed as expected. 


Summary 


The most important things that you've learned about 
coding are: 


--the BRK (code 00) command stops the program; 

--the SST switch causes a single instruction to be 
executed; 

--the internal registers can be viewed. 


BUT YOU MUST SET YOUR VECTORS PROPERLY (see the 
beginning of this section) OR NONE OF THE ABOVE WILL 
WORK ! 


A complete list of the register image addresses can be 
found in the KIM User Guide on page 39, Fig. 3-13 - 
when you need it. 

From here on, you don't have to take anybody's word for 
any KIM operation. You can go to your KIM, set SST, 
and try it for yourself. 

Exercises 


1. Can you change the program so that it swaps the 
contents of locations 0020 and 0021? 


2. Billy Beginner wrote the following program to swap 
the contents of locations 0010 and 0011: 


0200 A5 10 START LDA 10 put 0010 into A 


0202 85 11 STA 11 store A to 0011 
0204 A6 11 LDX 11 put 0011 into X 
0206 86 10 STX 10 store X to 0010 
0208 00 BRK stop 


It didn't work. Can you see why? 
3. Can you write a program to take the contents of 


address 0010 and place the same value in locations 
0011, 0012, and 0013? 
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MINI-PROGRAM B: Setting many locations to zero 
Here's the program: 


0200 AQ O00 START LDA #0 value 0 into A 


0202 A2 09 LDX #9 Start X at 9 
0204 95 30 LOOP STA 30,X zero into 0030+X 
0206 CA DEX decrease X by 1 
0207 10 FB BPL LOOP back if X positv 
0209 00 BRK stop the program 


This program, when you load and run it, will set the 
value of the ten locations from 0030 to 0039 to zero. 


We can't give you a whole programming course here. 
Hopefully, you'll use the Programming Manual and the 
single-step feature to trace-out exactly what the 
program does. But here are a few highlights: 


When we load registers A and X in the first two 
instructions, we don't want to load the contents of a 
Memory location. Instead, we want the actual values 0 
and 9. To do this, we use a new kind of addressing 
called IMMEDIATE addressing. 


Immediate addressing, when we use it, says "Don't go to 
memory - use this value." Immediate addressing can be 
spotted two ways. First, note the # sign that we use 
in writing the program: that Signals that we are using 
immediate mode adressing. Secondly, you may have 
noticed that the computer instruction (called the Op 
Code) has changed: the previous program used code A5 
to mean LDA; now we're using A9, which also means LDA 
but signals immediate addressing. 


You can - and should - use the SST feature to check 
that immediate addressing works as advertised. 


The instruction at 0204 uses the X register for 
INDEXING. That means that instead of storing the A 
value in address 30, the computer first calculates an 
effective address by adding the contents of the X 
register to the "base address" of 30. Since X contains 
9 the first time through, the effective address will] be 
30+9 or 39 - and that's where we store our A value of 
OO. Later, X will be decreased to a value of 8, so 
we'll store into address 38. 
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Indexing seems complicated, but remember that it's a 
very powerful feature of KIM. Try to get the hang of 
it; it's well worth the effort. 


The DEX instruction (Op Code CA) is the one that 
decreases X from 9 to 8 (and later to 7, 6, 5 and so 
on). Eventually, as this part of the program is 
automatically repeated, X will reach a value of 00. 
Finally, when we decrement X one more time, X will go 
to value FF, which KIM "Sees" as a negative number, 
kind of like the value -l. KIM views all values in the 
range 80 to FF as negative - when you're ready, the 
Programming Manual will tell you more. 


The BPL instruction at line 0207 is a CONDITIONAL 
TEST. BPL means Branch plus. If the result of our 
previous operation (Decrement X) gives us a positive, 
or plus, number, we will branch back to address 0204 
and repeat the instructions from that point. The X 
values of 9, 8, 7 ... down through 0 are all positive 
or plus; so each time we'll go back and set one more 
location in memory to value zero. Finally, X becomes 
equal to value FF - a negative number. So in this 
case, BPL won't branch: the "plus" or "positive" 
condition isn't satisfied. 


This last time, since BPL doesn't take us back, we 
proceed to the following instruction, BRK, which stops 
the program. That's OK because we've done our job of 
setting addresses 0030-0039 to value zero. 


Single Step the program carefully, checking the value 
of X from time to time (location OOF5, remember?) . 
Satisfy yourself that you can see it working. 


By the way, that funny address on the branch 
instruction (FB) is a special kind of addressing mode 
called RELATIVE addressing. All branches use it; it's 
worth reading up on. 

Exercises 


1. Can you change the program to place value 55 in the 
above locations? 


2. Can you change the program to place value 00 in 
locations 0030 to 0037? 


3. Can you change the program to place value FF in 
locations O0OA0O to OOBF? 
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¢ INTERLUDE - PROGRAM TESTING 


You've met one very powerful tool for checking out 
programs - the Single Step mode of operation. Let's 
review it and talk about a few others. 


The SST mode is especially useful because you can pause 
between instructions and look at memory or registers. 
The register values are copied into memory locations 
from OOEF to OOF5, and while they are not real 
registers, just copies, they are just as good for 
testing purposes. Not only can you look at them, you 
can change them to new values. This ability to change a 
register can be handy in solving the "what if ... " type 
of question, or shortening testing of a loop. 


For example, if you are single-stepping through 
mMini-program B and you don't want to go around the loop 
a full ten times, you might use this trick. Go around a 
couple of times to get the loop started, and then change 
X (OOFS5) to a much lower value, say 1 or 2. Go back to 
single-stepping. A couple more turns around the loop, 
and you're out. Using this method, you won't have set 
the whole ten locations to zero, of course. But you 
will see that the loop itself is working right. 


The Inserted BRK (Break) 





Sometimes SST seems slow. You might have a long 
program, and you're sure that the first part is 

working. What you want is a way to run directly through 
the first bit, and then stop and single-step the rest. 


It's not hard. Decide where you want the program to 
stop, so you can start single~stepping. Then put a BRK 
command, code 00, at that point. 


You'll have to wipe out a live instruction, of course, 
but that's OK. You can put it back after the halt has 
happened. 


Let's try doing that on mini-program B. Let's say we 


want to run straight through to the BPL instruction at 
0207, and then single-step from that point on. 
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Change 0207 (previously 10) to value 00, the BRK 
command. Now go to the beginning of the program 
(0200), be sure SST is off, and hit GO. You'll see 
0209 00 on the display, which tells you that the halt 
at 0207 has worked. Now go back to 0207, put the value 
of 10 (for BPL) back in, set the SST switch on, and 
you're ready to step. Easy? You bet - and you can save 
lots of time this way in testing big programs. 


No Operation (NOP, code EA) 


It sounds funny, but a very handy instruction is one 
that doesn't do anything. When the microprocessor 
encounters Op Code EA (NOP), it does nothing - just 
passes on to the next instruction. 


The biggest use of the NOP instruction is to take out 
another instruction that you don't want any more; or to 
leave room in the coding to add another instruction 
later if you need to. 


Some programmers write their programs in sections, and 
at first they put a BRK instruction between each 
section. That way, when they are testing, the program 
will stop after each part, and they can check to see 
that each part runs OK. When they are finished 
testing, they change the BRK's to NOP's and the program 
will run straight through. 


The ST (Stop) Key 


When everything is under control in program testing, 
you won't need the ST key. But sometimes the program 
‘gets away' on you - and the only way to find out what 
it's doing is to use this key. 


Let's wreck mini-program B by wiping out the DEX 
instruction. We'll do this by replacing it with a NOP; 
so write value EA into location 0206. What will 
happen? 


When we run the program, the X register will never 
change from its starting value of 9 because we don't 
have a DEX instruction. So the program will keep 
branching back to LOOP forever, and it will never 

stop. We've created this situation artificially, of 
course, but it could have happened by oversight when we 
were writing the program. 


es 


Set address 0200, SST off, and hit GO. Everything goes 
dead. Our program is running but it will never stop. 
Meanwhile, the display is dark. This time we know why 
it's happening. But if we didn't, how would we solve 
it? 


Press ST - stop - and the computer will freeze. The 
display will light showing the next instruction we were 
about to execute. If we wanted to pinpoint the 
trouble, we could flip over to SST now and track the 
problem down, step by step. 


A last comment on the ST button: If the display goes 
dark and pressing ST doesn't relight it, the computer 
has a different problem. It has gone berserk due to a 
completely illegal Op Code. Press the RS (Reset) 
button; now you'll need to start over and use the BRK 
and SST features to track down the trouble. 
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MINI-PROGRAM C: Displaying values 


KIM has a 6-digit display. You can show information on 
the display quite easily, if you know how. 


In the KIM Monitor programs there are several packages 
Called subroutines that you can call upon to do 

certain jobs. You could write the same coding for 
these jobs yourself; but use the Monitor subroutines to 
Save time and trouble. 


When you give the command JSR SCANDS (coded 20 1F 1F), 
the Monitor will briefly light the display with the 
data it finds in addresses OOFB, OOFA, and OOF9. 
Tnat's three locations, each displaying as two digits, 
so the full six-digit display is filled. 


"Briefly" means exactly that. The display lights for a 
split second. To get a steady display, you must repeat 
the JSR SCANDS command over and over again. Use a 
loop, of course; no point in filling up your program 
with JSR SCANDS instructions. 


You should also know that when you call this Monitor 
subroutine, the contents of your registers are wiped 
out. So if you have something important in the A 
register that you will want to use after giving JSR 
SCANDS, be sure to put it safely somewhere in memory or 
you'll lose it. The same goes for other registers like 
X and Y. 


Here's a simple program to show 0000 00 on the 
display. Note that we must put the value 00 into 
addresses FB, FA, and F9 before we call JSR SCANDS. 


0200 A9 00 START LDA #0 zero into A 
0202 85 FB STA POINTH first 2 digits 
0204 85 FA STA POINTL next 2 digits 
0206 85 F9 STA INH last 2 digits 
0208 20 1F 1F LOOP JSR SCANDS light up! 

020B 4C 08 02 JMP LOOP do it again 
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This program never ends, so eventually you'll have to 
stop it with the RS or ST keys. See how the last 
instruction jumps back to address 0208 so the display 
is lit continuously? Another interesting point: see 
how the jump address at 020B is "backwards" - 08 02 
instead of 0208? This is called "low order first" 
addressing and you'll see a lot of it on the KIM 
system. 


The single-step feature doesn't work too well on 
Monitor subroutines. That's normal, and it's not 
serious. These subroutines are well tested and 
dependable, so you shouldn't need to use SST with 
them 


Exercises 


1. Can you change the program to make the display show 
5555 55? 


2. Can you write a program to make the display show 
1234 56? 


3. How about a program to show the word EFFACE? or 
FACADE? or COOCOO? 
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MINI-PROGRAM D: reading the keypad 


To read the KIM pushbuttons you have another Monitor 
subroutine called GETKEY. You "call" it with 

JSR GETKEY (20 6A 1F). This subroutine will give you 
the identity of the key that is being pressed at that 
moment as a value in the A register. You can continue 
by using this value any way you want. If no key is 
being pressed at the time, you'll get a value of 15 in 
A. 


There are a couple of cautions on the use of 

JSR GETKEY. First, you must not be in Decimal Mode. 

If you're not sure about this, give a CLD (D8) 
instruction at the beginning of your program. 

Secondly, before giving JSR GETKEY, you must "open up 
the channel" from the keyboard with either one of two 
subroutines: JSR SCANDS or JSR KEYIN. You've met 

JSR SCANDS before: it's used to light the display. If 
you don't want to light the display, use JSR KEYIN 

(20 40 1F) before using JSR GETKEY. 


This program reads the keyboard and displays what it 
sees: 


0200 D8 START CLD clr dc mode 
0201 A9 OO LDA #0 zero into A 
0203 85 FB STORE STA POINTH 
0205 85 FA STA POINTL 
0207 85 F9 STA INH 
0209 20 1F 1F JSR SCANDS light display 
020C 20 6A 1F JSR GETKEY test keys 
O20F 4C 03 02 JMP STORE 

Exercises 


1. Do you think that the instruction at 0201 is really 
needed? Try removing it (change 0201 and 0202 to EA) 
and see. 


2. What values do you get for the alphabetic keys? For 
keys like PC and GO? Are there any keys that don't 
work with JSR GETKEY? 


3. Try running in decimal mode (change 0200 to SED, 
code F8). What happens? Is it serious? How about key 
F? 


4. Can you change the program so that only the last 
digit of the display changes with the keyboard? 


21 


CONCLUSION 


You've reached the end of our little Beginner's Guide. 
But you've only started on the road towards 
understanding programming. 


Use the tools we have given you here to forge your own 
path. KIM is a very rich machine. You have 56 Op 
Codes to choose from, and many powerful addressing 
combinations. You don't need to learn them all right 
away, but when you need them, they'll be there. 


The KIM Programming Manual makes good reading. Don't 
try to go through the whole thing at one sitting. Stop 
and try a few things; you have the Single Step feature 
to help you understand what each instruction really 
does. 


Try leafing through - or stepping through ~ other 
people's programs, to understand what makes them tick. 
Change the coding, if you like, to see what happens. 
When you see a program that does something you want to 
do, borrow the coding - you don't need to re-invent the 
wheel. 


Don't be discouraged when your program doesn't work on 
the first try. Even experts have to spend time getting 
the "bugs" out of their coding. It's part of the 

game: Think of yourself as Sherlock Holmes, 
methodically tracking down the elusive villains. 


A proverb says that a journey of a thousand miles 
starts with the first step. In the same way, the 
biggest programs still operate one step at a time. 

So forge ahead at your own speed. Communicate with 
other KIM owners; you'll have a lot of information to 
swap. 


But most of ali: have fun. 
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RECREATIONAL 
PROGRAMS 





Clear Decimal Mode: Set OOF1 to 00 before running these programs. 


BY JIM BUTTERFIELD 


ADDITION 


DIRECTIONS - 


HERE'S A HANDY LITTLE ADDING MACHINE PROGRAM, KIM BECOMES 
A SIX DIGIT ADDER. '"'GO' CLEARS THE TOTAL SO YOU CAN START 
OVER. THEN ENTER A NUMBER AND HIT THE PLUS KEY TO ADD IT 
TO THE PREVIOUS TOTAL. IF YOU MAKE A MISTAKE IN ENTERING 
A NUMBER, JUST HIT THE "0" KEY SEVERAL TIMES AND ROLL THE 
BAD NUMBER OUT BEFORE ENTERING THE CORRECTION. NO OVERFLOW 
INDICATOR, AND NO SUBTRACTION OR MULTIPLICATION - MAYBE YOU 
WOULD LIKE TO TRY YOUR HAND AT ADDING THESE. THE PROGRAM 
IS FULLY RELOCATABLE. 


0200 


20 IF 1F START JSR SCANDS 


light display 


0203 20 6A 1F JSR GETKEY read keyboard 
0206 cS 60 CMP PREV same as last time? 
0208 FO F6 BEQ START yes, skip 

020A 85 60 STA PREV no, save new key 
020C C9 OA CMP #$0A numeric key? 

O20E 90 29 BCC NUM yes, branch 

0210 C9 13 CMP #$13 GO key? 

0212 FO 18 BEQ DOGO yes, branch 

O21, c9 12 CMP #$12 + key? 

0216 DO £8 BNE START no, invalid key 
0218 F8 18 SED CLC prepare to add 
O21A A2 FD LOX #$FD minus 3; 3 digits 
021C BS FC ADD LDA POINTH+1,X display digit 
O21E 75 65 ADC ACCUM+3,X add total 

0220 95 FC STA POINTH+1,X total to display 
0222 95 65 STA ACCUM+3,X & to total accum 
022) E8 INK next digit 

0225 30 FS BMI ADD last digit? 

0227 8 61 STX FLAG flag total-in-disolay 
0229 D8 CLD 

022A 10 Dy BPL START return to start 
022C AY 00 novo LDA #0 set flap for 

022E 85 61 STA FLAG total-in-disvlay 
0230 A2 02 LDX #2 for 3 digits... 
0232 95 F9 CLEAR STA INH,X clear disvlay 
023) CA DEX next digit 

0235 10 FB BPL CLEAR last digit? 

0237 30 C7 BMI START finished, back to go 
0239 Al 61 NUM LDY FLAG total-in-display? 
023B DO OF BNE PASS no, add new digit 
023D E6 61 INC FLAG clear t-i-d flag 
023F 8 PHA save key 

020 A2 02 LDX #2 3 digits to move 
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NOTE: 


O2h2 BS F9 
0244 9 62 
O2h6 9h FO 
0248 CA 

0249 10 F7 
02hB 68 

O2)C OA OA 
O2hE OA OA 
0250 A2 Ok 
0252 OA 

0253 2% F9 
0255 26 FA 
0257 26 FB 
0259 CA 

025A DO F6 
025C FO A2 


MOVE 


PASS 


SHIFT 


IDA INH,X 
STA ACCUM,X 
STY INH,X 
DEX 

BPL MOVE 
PLA 

ASL A ASLA 
ASL A ASL A 
IDX #y 

ASL A 

ROL INH 
ROL POINTL 
ROL POINTH 
DEX 

BNE SHIFT 
BEQ START 


get display digit 

copy to total Accum 

clear display 

next digit 

last digit? 

recall key 

move digit.. 

--into position 

k bits 

move bit from A 

-.to INH.. 

eto rest of 
display 

next bit 

last bit? 

yes, back to start 


HARK HEX DUMP = ADDITION *skocet3¢ 


0200 20 1F 1F 20 6A 1F CS 60 FO F6 85 60 C9 0A 90 29 
0210 C9 13 FO 18 C9 12 DO E8 F8 18 A2 FD BS5 FC 75 65 
0220 95 FC 95 65 E8 30 F5 86 61 D8 10 D4 AQ 00 85 61 
0230 A2 02 95 F9 CA 10 FB 30 C7 A& 61 DO OF E6 61 48 
0240 A2 02 BS F9 95 62 94 FO CA 10 F7 68 OA OA 0A 0A 
0250 A2 04 0A 26 F9 26 FA 26 FB CA DO F6 FO A2 


WHENEVER SPACE PERMITS, A HEX DUMP OF THE 
PROGRAMS LISTED WILL BE GIVEN. 


THESE DUMPS 


WERE TAKEN FROM ACTUAL RUNNING PROGRAMS. SO, 
IF THERE IS A DISCREPANCY BETWEEN THE LISTING 
AND THE DUMP, THE LISTING IS MOST PROBABLY IN 


ERROR. 
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ASTEROID 


BY STAN OCKERS 


YOU ARE PILOTING YOUR SPACECRAFT BETWEEN MARS AND JUPITER WHEN 
YOU ENCOUNTER A DENSE PORTION OF THE ASTEROID BELT. PRESS KEY 
ZERO TO MOVE LEFT, THREE TO MOVE RIGHT. WHEN YOUR CRAFT IS HIT 
THE DISPLAY WILL GIVE A NUMBER TO INDICATE HOW SUCESSFUL YOU 
THE PROGRAM STARTS AT 0200. 


WERE. 


0200 
0202 
0204 
0206 
0208 
020A 
020D 
020F 
0210 
0212 
0214 
0216 
0218 
021A 
0215 
0220 
0221 
0223 
0226 
0229 
0228 
022D 
022F 
0231 
0233 
0235 
0237 
0239 
0238 
023D 
023F 
0241 
0243 
0244 
0246 


0248 
024A 
024D 
O24F 
0252 
0254 
0256 
0258 
025A 


00 
FQ 
FA 
FB 
06 
CE 
E2 


02 


02 
02 


1F 
1F 


IZ 
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LDA #$00 .ee INITIALIZE COUNTER... 
STA 00F9 
STA O0FA 
STA OOFB 
LDX #$06 ..e INITIALIZE 00E2~00E8 
INIT LDA 02CE,X 
STA 00E2,X 
DEX 
BPL INIT 
TOGG LDA 00E8 .s. TOGGLE OOE8... 
EOR #$FF 
STA 00E8 CFLASHER FLAG) 
LDX #$05 DELAY BETWEEN FLASHES 
LITE JSR DISP DISPLAY AND.. 
JSR CHEK CHECK FOR MATCH 
DEX 
BNE LITE 
JSR KEYIN SET DIRECTIONAL REGS. 
JSR GETKEY GET KEYBOARD ENTRY 
CMP #$15 A VALID KEY? 
BPL TOGG NO 
CMP #$00 KEY 0? 
BEQ LEFT YES, GO LEFT 
CMP #$03 KEY 3? 
BEQ RT YES, GO RIGHT 
BNE TOGG NOT A VALID KEY 
LEFT ASL 00E7 SHIFT CRAFT LEFT 
LDA #$40 LEFT HAND EDGE? 
CMP 00E7 
BNE TOGG NO, RETURN 
RT LSR 00E7 SHIFT RIGHT 
BNE TOGG NOT RIGHT SIDE, RETURN 
SEC OFF EDGE, RETURN TO 
ROL 00E7 RIGHT SIDE 
BNE TOGG RETURN 
#2 DISPLAY SUBROUTINE *** 
DISP LDA #$7F PORT TO OUTPUT 
STA 1741 
LDA #$09 INIT. DIGIT 
STA 1742 
LDA #$20 BIT POSITION TO 
STA O0E0 6TH BIT 
BIT LDY #$02 3 BYTES 
LDA #$00 ZERO CHARACTER 
STA 00E1 
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025C Bl E2 BYTE LDA (O0E2),Y GET BYTE 


025E 25 E0 AND 00E0 NTH BIT = 1? 
0260 FO 07 BEQ NOBT NO, SKIP 
0262 AS El LDA 00E1 YES, UPDATE 
0264 19 E4 00 ORA 00E4,Y CHARACTER 
0267 85 £1 STA 00E1 
0269 88 DEY 
026A 10 FO BPL BYTE NEXT BYTE 
026C AS El LDA 00E1 CHAR. IN ACCUM, 
026E C4 E8 CPY O0E8 SHIP ON? 
0270 DO 08 BNE DIGT NO, SKIP 
0272 A4 ED LDY OQ0E0 IS THIS SHIP 
0274 C4 E7 CPY 00E7 DIGIT? 
0276 DO 02 BNE DIGT NO, SKIP 
0278 09 08 ORA #508 ADD IN SHIP 
027A 8D 40 17 DIGT STA 1740 LIGHT DIGIT 
027D AQ 30 LDA #$30 DELAY CDIGIT ON) 
027F 8D 06 17 STA 1706 
0282 AD O07 17 DELA LDA 1707 TIME UP? 
0285 FO FB BEQ DELA NO 
0287 AQ QO LDA #$00 TURN OFF SEGMENTS 
0289 8D 40 17 STA 1740 
028C EE 42 17 INC 1742 SHIFT TO NEXT DIGIT 
Q28F EE 42 17 INC 1742 
0292 46 EO LSR OOEO SHIFT TO NEXT BIT 
0294 DO CO BNE BIT MORE BITS 
0296 60 RTS 
Pipi pinid CHECK SUBROUTINE atetetes 
0297 C6 EQ CHEK DEC 00E9 DEC. TIMES THRU COUNT 
0299 DO 1A BNE MORE SKIP IF NOT 48TH TIME 
029B AQ 30 LDA #520 RESET TIMES THRU COUNT 
029D 85 EQ STA 00E9 
029F 8A TXA SAVE X 
02A0 48 PHA 
02A1 A2 FD LDX #SFD NEGATIVE 3 IN X 
02A3 F8 SED DECIMAL MODE 
02A4 38 SEC CTO ADD ONE) 
02A5 B5 FC NXTB LDA GOFC,X . «INCREMENT COUNTER 
02A7 69 00 ADC #$00 WHICH IS MADE OF BYTES 
02A9 95 FC STA OOFC,X IN DISPLAY AREA COOF9- 
02AB E8 INX OOFB).. 
02AC DO F7 BNE NXTB NEXT BYTE 
02AE D8 CLD 
O2AF 68 PLA RETURN X 
02B0 AA TAX 
02B1 E6 E2 INC O00E2 ..SET UP FOR NEXT GROUP 
02B3 AS E2 LDA 00E2 OF BYTES.. 
02B5 C9 30 MORE CMP #530 ALL GROUPS FINISHED? 
02B7 FO 09 BEQ RECY YES, RECYCLE ASTR. FIELD 
02B9 AO 00 MATCH LDY #500 SHIP - ASTEROID MATCH? 
02BB AS E7 LDA 00E7 LOAD CRAFT POSITION 
02BD 31 E2 AND 00E2,Y AND WITH ASTEROID BYTE 
02BF DO 07 BNE FIN IF MATCH, YOU'VE HAD IT 
02Cl 60 RTS EXIT MATCH SUBROUTINE 
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02C2 AY 00 RECY LDA #500 GO THRU ASTEROID FIELD 


02C4 85 E2 STA 00E2 AGAIN 

02C6 FO Fl BEQ MATCH UNCONDITIONAL BRANCH 
02C8 20 1F 1F FIN JSR SCANDS DISPLAY COUNT 
02CB 4C C8 02 JUMP FIN CONTINUOUSLY 
02CE DS LOW POINTER, ASTEROID BELT 

02CF 02 HIGH POINTER, ASTEROID BELT 

02D0 08 MASK, BOTTOM SEGMENT 

02D1 40 MASK, MIDDLE SEGMENT 

02D2 01 MASK, TOP SEGMENT 

02D3 04 CRAFT POSITION 

02D4 FF FLAG CSHIP ON) 


02D5- 00 00 00 04 00 08 00 06 12 00 11 00 05 00 2C 00 
02E5~ 16 00 29 00 16 00 2B 00 26 00 19 00 17 00 38 00 
02F5- 2E 00 09 00 1B 00 24 00 15 00 39 00 OD 00 21 00 
0305- 10 00 00 


CHANGES - 

YOU CAN MAKE YOUR OWN ASTEROID FIELD STARTING AT 02D5. THE 
GROUP COUNT, €02B6), WILL HAVE TO BE CHANGED IF THE FIELD SIZE 
DIFFERS. THE SPEED OF THE CRAFT MOVING THROUGH THE FIELD IS 
CONTROLLED BY 027E.° WHAT ABOUT A VARYING SPEED, SLOW AT FIRST 
AND SPEEDING UP AS YOU GET INTO THE FIELD? WHAT ABOUT A FINAL 
"DESTINATION COUNT" AND A SIGNAL TO INDICATE YOU HAVE REACHED 
YOUR DESTINATION? HOW ABOUT ALLOWING A HIT OR TWO BEFORE YOU 
ARE FINALLY DISABLED? 
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BAG ECS sme 


DIRECTIONS — 

THE COMPUTER HAS CHOSEN FOUR LETTERS, ALL OF WHICH ARE 
A,B,C,D,E, OR F. LETTERS MAY BE REPEATED - FOR EXAMPLE, 
THE COMPUTER'S "SECRET' COMBINATION MIGHT BE CACF OR BBBB. 

YOU GET TEN GUESSES. EACH TIME YOU GUESS, THE COMPUTER 
WILL TELL YOU TWO THINGS: HOW MANY LETTERS ARE EXACTLY CORRECT 
CTHE RIGHT LETTER IN THE RIGHT PLACE); AND HOW MANY LETTERS 
ARE CORRECT, BUT IN THE WRONG POSITION. 

FOR EXAMPLE, IF THE COMPUTER'S SECRET COMBINATION IS 
CBFB AND YOU GUESS BAFD, THE TWO NUMBERS WILL BE 1 AND 1 
CTHE F MATCHES EXACTLY; THE B MATCHES BUT IN THE WRONG PLACE). 
THESE NUMBERS WILL SHOW ON THE RIGHT HAND SIDE OF THE DISPLAY; 
THE CODE YOU ENTERED WILL APPEAR ON THE LEFT. 

MAKE A NOTE OF YOUR GUESSES AND THE COMPUTER'S RESPONSE. 
WITH A LITTLE MENTAL WORK, YOU SHOULD BE ABLE TO BREAK THE 
CODE EXACTLY IN SEVEN OR EIGHT WORDS. A CORRECT GUESS WILL 
PRODUCE A RESPONSE OF 4 - 0. IF YOU DON'T GUESS RIGHT IN 
TEN MOVES, THE -COMPUTER WILL GIVE YOU THE ANSWER, 

AFTER A CORRECT GUESS, OR AFTER THE COMPUTER TELLS YOU 
THE ANSWER, IT WILL START A NEW GAME (WITH A NEW SECRET CODE) 
THE INSTANT YOU TOUCH A NEW KEY. 


0200 E6 16 GO INC RND+4 randomize 

0202 20 40 1F JSR KEYIN on pushbutton delay 
0205 DO FY BNE GO 

0207 D8 CLD 

0208 AQ OA NEW LDA #$0A ten guesses/game 

020A 85 18 STA COUNT new game starting 
020C AY 03 LDA #3 create 4 mystery codes 
O20E 85 10 STA POINTR 

0210 38 RAND SEC one plus... 

0211 A5 13 LDA RND+1 ...three previous 
0213 65 16 ADC RND+4 random numbers 
0215 65 17 ADC RND+5 

0217 35. 12 STA RND =new random value 
0219 A2 O04 LDX #4 

021B B5 12 RLP LDA RND,X move random numbers over 
021D 95 13 STA RND+1,X 

O21F CA DEX 

0220 10 FY BPL RLP 

0222 A6 10 LDX POINTR 

0224 AO CO LDY #$CO divide by 6 

0226 84 11 STY MOD keeping remainder 
0228 AO 06 LDY #6 

022A C5 11 SET CMP MOD 

022C 90 02 BCC PASS 

O022E E5 11 SBC MOD 

0230 46 11 PASS LSR MOD 

0232 88 DEY 

0233 DO F5 BNE SET continue division 
0235 18 CLC 

0236 69 OA ADC #$0A random value A to F 
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0238 
023A 
023C 
023E 
0240 
0242 
O244 
0246 
0248 
0249 


O24B 
O24E 
0250 
0253 
0255 
0257 
0259 
025B 
025D 
025F 
0261 
0264 
0266 
0268 
026A 
026C 
026D 
026F 
0271 
0274 
0276 
0277 
0279 
027B 
027D 
027E 
0280 
0282 
0284 
0286 
0289 
028B 
028D 
0290 
0292 
0294 
0296 
0297 
0299 
029B 
029D 
029F 
02A0 


95 
C6 
10 
C6 
30 
Ag 
A2 
22 
CA 
10 


00 
10 
D2 
18 
7A 
00 
oc 
O4 


FB 


02 
02 


1F 


1F 


00 


00 


GUESS 


WIPE 


WAIT 


RESUME 


NOTEX 


STEP 


LOOK 


GOT 
ON 


STA SECRET,X 

DEC POINTR 

BPL RAND 

DEC COUNT new guess starts here 
BMI FINISH ten guesses? 


LDA #0 

LDX #$0C clear from WINDOW... 
STA WINDOW,X ...to POINTR 
DEX 

BPL WIPE 


WAIT FOR KEY TO BE DEPRESSED 


JSR SHOW 

BEQ WAIT 

JSR SHOW 

BEQ WAIT debounce key 
LDA WINDOW+4 new guess? 


BEQ RESUME no, input digit 
AND #$60 

EOR #$60 previous game finished? 
BEQ NEW ---yes, new game; 
BNE GUESS ...no, next guess 
JOR GETKEY 

CMP #$10 guess must be in 

BCS WAIT range A to F 

CMP #$0A 

BCC WAIT 

TAY 

LDX POINTR zero to start 

INC POINTR 


LDA TABLE,Y segment pattern 

STA WINDOW ,X 

TYA 

CMP SECRET,X exact match? 

BNE NOTEX 

INC EXACT 

TXA destroy input 

STA INPUT,X 

LDA WINDOW+3 has fourth digit arrived? 
BEQ BUTT eet 


LDY #3 »».-yesS, calculate matches 
LDA INPUT,Y for each digit: 

AND #$18 .-has it already been 
BEQ ON matched? 

LDA SECRET, Y 

LDX #3 if not, test 

CMP INPUT,X ..-against input 

BEQ GOT 

DEX 

BPL LOOK 

BMI ON 


INC MATCH increment counter 
ASL INPUT,X and destroy input 
DEY 

BPL STEP 
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02A2 
02A4 
02A6 
02A9 
O2AB 
02AC 
O2AE 
02B1 
02B3 
02B5 
02B8 
O2BA 


02BC 
O2BE 
02CO 
02C3 
02C5 
02C6 
02C8 
02CA 
02CC 


02CE 
02D0 
02D2 
02D4 
02D7 
02D9 
02DC 
O2DF 
02E1 
02E3 
O2E4 
02E5 
02E6 
02E8 
02EB 


A2 
BY 
B9 


CA 
10 
A9 


DO 


AO 
A2 
AQ 
8D 
B5 
8D 
8C 
E6 
DO 
88 
88 
CA 
10 
20 
60 


O1 
OE 


08 


F6 
CE 02 
OF 
Fg 
CE 02 
FB 
8F 


oe oy 


EF 
4o 1F 


TRANS 


DELAY 


BUTT 


FINISH 
FIN2 


SHOW 


Program notes: 


Tis 


LDX 
LDY 
LDA 
STA 
DEX 
BPL 
JSR 
INC 
BNE 
JSR 
BNE 
BEQ 


TEN 


LDX 
LDY 
LDA 
STA 
DEX 
BPL 
LDA 
STA 
BNE 


#1 display counts 
EXACT ,X 

TABLE, Y 

WINDOW+4,X 


TRANS 

SHOW long pause for debounce 
MATCH 

DELAY 

SHOW wait for key release 
BUrT 

WAIT 


GUESSES MADE - SHOW ANSWER 


#9 

SECRET, X 
TABLE ,Y 
WINDOW , X 


FIN2 

#$e3 '‘square' flag 
WINDOW+4 . 
DELAY unconditional jmp 


SUBROUTINE TO DISPLAY 


AND 


LDY. 
LDX 
LDA 
STA 
LDA 
STA 
STY 
INC 
BNE 
DEY 
DEY 
DEX 
BPL 
JSR 
RTS 


END 


TEST KEYBOARD 


#$13 

#5 

#$7F 

PADD 

WINDOW , X 

SAD 

SBD 

MOD pause loop 
POZ 


LITE 
KEYIN 


Program enforces a pause of about 4 seconds after 
displaying counts or answer. This guards against 
display being 'missed' due to bounce, hasty keying. 


2. After count displayed, or at end of game(s), user 


any numeric key. 
but user may feel it ‘separates’ games better. 


can blank display, if desired, by pressing GO or 


Game operation is not affected, 
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3. When a digit from the user's guess is matched, it 
is destroyed so that it will not be matched again. 
There are two significantly different types of 
‘destruction’, however (at 27D and 29D); the test 
at label STEP is sensitive to which one is used. 


0000 
0004 
OOOA 
OOOE 
OOOF 
0010 
0011 
0012 
0018 


0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
02A0 
02B0 
02C0 
02D0 
02E0 


16 
A5 
FQ 
11 
7A 
CE 
20 
B9 
07 
03 
E4 


E7 
05 
DG 


KEYIN 
GETKEY 
TABLE 
PADD 
SBD 
SAD 


SECRET 
WINDOW 
INPUT 
EXACT 
MATCH 
POINTR 
MOD 
RND 
COUNT 


20 
13 
A6 
88 
AQ 
02 
6A 
E7 i 
FO 
D5 
A2 
OF 
1F 
AQ 
FC 


LINKAGES TO KIM MONITOR 


1741 
1742 


1F40 

1F6A 

1FE7 
$ 
$1740 


WORK AREAS 


HxoK+G 
#xo*+H 
R=H+1 
H=K+1 
=H 
H=mH+1 
H=E+G 
Hm +7 


D8 


11 
0A 


FO 
E3 
D5 
0A 
10 


02 
F6 
B5 
EF 
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computer's secret code 
display window 


layer"s input area 


of exact matches 


# of other matches 


digit being input 


divisor/delay flag 
random number series 


number of guesses left 


18 
B5 
11 
10 
20 
49 
DF 
E6 
FO 
E6 
CA 
8F 
08 
17 
60 


A9 
12 
90 
10 
CE 
60 
A8 
OE 
12 
OF 
10 
A2 
DO 
8C 


85 
13 
E5 
C6 
FO 
AY 
10 
95 
00 
0A 
20 


AO 
17 


Label Table for Program BAGELS 
LABEL WHERE USED 


ADDRESS 


02B5 
0018 
02AE 
000E 
02BE 
02BC 
1F6A 
0200 
029B 
023E 
000A 
1F40 
02D7 
0292 
OOOF 
0011 
0208 
027E 
029F 
174] 
0230 
0010 
02DF 
0210 
0261 
021B 
0012 
1740 
1742 
0000 
022A 
02CE 
0286 
1FE7 
02A4 
024B 
0246 
0004 


BUTT 0282 
COUNT 020A 
DELAY 02B3 
EXACT 027B 
FIN2 02C6 
FINISH 0240 


GETKEY 0261 
GO 0205 
GOT 0294 
GUESS 025F 


INPUT 0O27E 
KEYIN 0202 
LITE 02E6 


LOOK 0297 
MATCH 029B 
MOD 0226 
NEW 025D 


NOTEX 0279 


ON 0299 
PADD 02D4 
PASS 022C 


POINTR 020E 
POZ 02E1 
RAND 023C 
RESUME 0257 


RLP 0220 
RND 0200 
SAD 02D9 
SBD 02DC 


SECRET 0238 
SET 0233 
SHOW 024B 
STEP 02A0 
TABLE 0271 
TRANS 0O2AC 
WAIT 024B 
WIPE 0249 
WINDOW 0246 


02B8 
023E 
02CC 
02A4 


0286 
02E8 


02Bl 
022A 


0222 


0211 


0277 
0250 
02A6 
0253 
0255 


0292 


022E 


023A 


0213 


028D 
02AE 
02Cc0 
0266 
0274 


029D 


0230 


026D 


0215 


02BE 


02B5 


026A 


0280 


02DF 


026F 


0217 021B 021D 


O2BA 


02A9 02C3 02CA 02D7 


Label tables, when available, are often useful 

For each label (alphabetically 
arranged) you can see, on the left, the address 
belonging to the label; and on the right, where the 


for studying a program. 


label is used in the program. 
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BANDIT «vont 


Start the program at 0200 and on the right, you'll see the $25 
that KIM has given you to play with. The funny symbols on the 
left are your "wheels" - hit any key and see them spin. 


Every time you spin the wheels by hitting a key it costs you $1. 
When the wheels stop, you might have a winning combination, 
in which case you'll see money being added to your total 

on the right. Most of the time, you'll get nothing... 

but that's the luck of the game. 


The biggest jackpot is $15: that's three bars across the 
display. Other combinations pay off, too; you'll soon leam 
to recognize the "cherry" symbol, which pays $2 every time 
it shows in the left hand window. 


There's no house percentage, so you can goa long time on 


your beginning $25. The most you can make is $99; and if 
you run out of money, too bad: KIM doesn't give credit. 


BANDIT MICRO-WARE ASSEMBLER 65XX-1.0 PAGE 01 


0010: 

0020: REE E EE EEE EEE EEE REE EEE EE EE 
0030: ###*## ONE ARMED BANDIT HH HH 
OO40: ##*### BY JIM BUTTERFIELD *#*** 
0050: OCS EET EST TTT Tee TTT Tee Tet ts 
0060: 

0070: O2D1 WINDOW * $0000 DISPLAY WINDOW 
0080: O2D1 AMT # $0005 CASH CACHE 
0090: O2D1 ARROW #* $0006 

0100: 02D1 RWD # $0007 REWARD 

0110: O2D1 STALLA * $0008 WAIT WHILE 
0120: O2D1 TUMBLE #* $0009 

0130: 

0140: LINKAGES TO KIM 

0150: 

0160: 02D1 KEYIN #* $1F4O IS KEY DEPRESSED? 
0170: O2D1 PADD # $1741 

0180: O2D1 SAD # $1740 

0190: O02D1 SBD # $1742 

0200: O2D1 TABLE #* $1FE7 HEX:7 SEG 
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0210: 
0220: 
0230: 
0240: 
0250: 
0260: 
0270: 
0280: 
0290: 
0300: 
0310: 
0320: 
0330: 
0340: 
0350: 
0360: 
0370: 
0380: 
0390: 
O400: 
0410: 
0420: 
0430: 
O440: 
0450: 
0460: 
0470: 
0480: 
0490: 
0500: 
0510: 
0520: 
0530: 
0540: 
0550: 
0560: 
0570: 
0580: 
0590: 
0600: 
0610: 
0620: 
0630: 
0640: 
0650: 
0660: 
0670: 
0680: 
0690: 
0700: 
0710: 
0720: 
0730: 
O740: 
0750: 
0760: 
0770: 
0780: 
0790: 


0200 
0200 
0202 
0204 
0207 
0209 


0208 
O20E 
0210 
0212 
0215 


0217 
0219 
021B 
021C 
021D 
O21F 
0221 
0223 
0226 


0228 
022B 
022D 
022F 
0231 
02 33 
0235 


0237 
0239 
02 3B 
023D 
023F 


0241 
0243 
0245 
0247 
0249 
O24B 
O24D 
O2UF 
0251 
0253 
0255 
0257 
0259 
025B 
025D 


A9 
85 
20 
Ag 
85 


A5 
C5 
DO 
C5 
DO 
A2 
C9 
FO 
Ae 
C9 
FO 
A2 
C9 
FO 
CA 


25 
05 
BA 
00 
06 


8D 
FB 
09 
8D 
F9 


03 
06 


05 
01 
05 
BA 
09 


8D 
08 
Fg 
06 
09 
06 
40 


01 
09 
09 


E7 


O04 
03 
37 
02 
33 
10 
40 
OD 
OB 
42 
07 
06 
4y 
01 


02 


02 


02 


02 


02 


MAIN PROGRAM 


BANDIT ORG 

GO LDAIM 
STA 
JSR 
LDAIM 
STA 


MAIN DISPLAY 


LPA JSR 
BNE 
ROLL INC 
JSR 
BEQ 


LDAIM 
STA 
SED 
SEC 
LDA 
SBCIM 
STA 
JSR 
ROL 


LPB JSR 
DEC 
BNE 
LDX 
LDA 
ANDIM 
ORAIM 


STAAX 
LSR 
LSR 
DEC 
BNE 


$0200 

$25 GIVE HIM $25 

AMT TO START WITH 
CVAMT AND SHOW IT TO HIM. 
$00 RESET ARROW. 

ARROW 


LOOP 


DISPLY DISPLAY UNTIL 
LPA {GO] IS RELEASED. 
TUMBLE RANDOMIZE TUMBLE. 
DISPLY DISPLAY UNTIL 
ROLL A KEY TS--HIT. 


$03 
ARROW 


AMT 

$01 CHARGE ONE BUCK. 
AMT 

CVAMT CONVERT FOR LED. 
TUMBLE 


DISPLY 

STALLA DISPLAY A WHILE. 
LPB 

ARROW 

TUMBLE MAKE A 

$06 RESULT 

$40 


WINDOW +01 

TUMBLE 

TUMBLE DO ALL 
ARROW 3 WINDOWS. 
LPB 


ALL WHEELS STOPPED - COMPUTE PAYOFF 


LDA 
CMP 
BNE 
CMP 
BNE 
LDXIM 
CMPIM 
BEQ 
LDXIM 
CMPIM 
BEQ 
LDXIM 
CMPIM 
BEQ 
DEX 
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WINDOW +04 

WINDOW +03 CHECK FOR 
NOMAT A MATCH. 
WINDOW +02 

NOMAT 

$10 

$40 PAY $15 FOR 3 BARS 
PAY 

$08 

$42 PAY $10 FOR 3 UPS 
PAY 

$06 

$44 PAY ¢5 FOR 3 DOWNS 
PAY 


0800: 
*5310: 
0820: 
0830: 
0840: 
0850: 
0860: 
0870: 
0880: 
0890: 
0900: 
0910: 
0920: 
0930: 
0940: 
0950: 
0960: 
0970: 
0980: 
0990: 
1000: 
1010: 
1020: 
1030: 
1040: 
1050: 
1060: 
1070: 
1080: 
1090: 
1100: 
1110: 
1120: 
1130: 
1140: 
1150: 
1160: 
1170: 
1180: 
1190: 
1200: 
1210: 
1220: 
1230: 
1240: 
1250: 
1260: 
1270: 
1280: 
1290: 
1300: 
1310: 
1320: 
1330: 


025E 
0260 
0262 
0264 
0267 
0269 
0268 
026D 
026F 
0270 
0271 
0273 
0275 
0277 
0279 
027¢ 


O27E 


0280 
0282 
0284 
0287 
0289 
028B 


028D 
028F 
0291 
0293 
0294 
0296 
0298 
029B 
029D 
029F 
02A1 
O2A4 
O2A7 
02A8 
O2AA 
O2AC 
O2AE 
02B1 
O02B2 


86 
AQ 
85 
20 
C6 
DO 
C6 
FO 
18 
F8 
A5 
69 


85 
20 
DO 


A2 
C9 
FO 
20 
A5 
DO 
FO 


A6 
10 
F6 
CA 
10 
A9 
8D 
AO 
A2 
B5 
8C 
8D 
D8 
A9 
E9 
DO 
8D 
c8 
C8 


O07 
80 
08 
8D 
98 
FQ 
07 
9C 


03 
46 
DA 
8D 
05 
80 
F7 


06 
02 
02 


FB 
TF 
44 
OB 
O04 
00 
42 
40 


TF 
01 
FC 
42 


02 


02 


02 


17 


17 


17 


A WIN!!! PAY 


PAY STX 

PAX LDAIM 
STA 

LPC JSR 
DEC 
BNE 
DEC 
BEQ 
CLC 
SED 
LDA 
ADCIM 
BCS 
STA 
JSR 
BNE 


AMOUNT IN X 


RWD HIDE REWARD 
$80 
STALLA 
DISPLY DISPLAY 
STALLA FOR A HALF 
LPC A WHILE. 
RWD 
LPA 
SLOWLY ADD 
THE PAYOFF 
AMT TO THE AM'T. 
$01 
LPA 
AMT 
CVAMT 
PAX 


WHEELS NOT ALL THE SAME - CHECK FOR SMALL PAYOF 


NOMAT LDXIM 
CMPIM 
BEQ 

LOK JSR 
LDA 
BNE 
BEQ 


$03 

$46 A CHERRY? 

PAY 

DISPLY 

AMT CAN'T PLAY 
LPA WITH NO DOUGH! 
LOK 


DISPLAY SUBROUTINE 


DISPLY LDX 
BPL 
OVER INCAX 
INDIS DEX 
BPL 
LDAIM 
STA 
LDYIM 
LDXIM 
LITE LDAAX 
STY 
STA 
CLD 
LDAIM 
ZIP SBCIM 
BNE 
STA 
INY 
INY 
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ARROW 
INDIS ROLL 
WINDOW +02 THE DRUM 


OVER 

$7F 

PADD 

$08 

$04 

WINDOW LIGHT 
SBD ALL THE 
SAD WINDOWS 


$7F 
$01 
ZIP 
SBD 


® 


1340: 0O2B3 CA DEX 

1350: O2B4 10 E9 BPL LITE 

1360: O2B6 20 HO 1F JSR KEYIN 

1370: O2B9 60 RTS 

1380: 

1390: AMOUNT CONVERSION 

1400: 

1410: O2BA A5 05 CVAMT LDA AMT 

1420: O2BC 29 OF ANDIM $0F TRANSLATE 
1430: O2BE AA TAX AMOUNT 
1440: O2BF BD E7 1F LDAAX TABLE TO LED 
1450: O02C2 85 00 STA WINDOW CODE. 
1460: O2C4 A5 05 LDA AMT 

1470: O2C6 HA LSRA 

1480: O2C7 4A LSRA 

1490: O2Cc8 HA LSRA 

1500: O2C9 HA LSRA 

1510: O2CA AA * TAX 

1520: O2CB BD E7 1F LDAAX TABLE 

1530: O2CcE 8 01 STA .WINDOW +01 
1540: O2D0 60 RTS 


SYMBOL TABLE 3000 30A2 

AMT 0005 ARROW 0006 BANDIT 0200 CVAMT 
DISPLY 028D GO 0200 INDIS 0293 KEYIN 
LITE 029F LOK 0284 LPA 020B LPB 
LPC 0264 NOMAT O27E OVER 0291 PADD 
PAX 0260 PAY O25E ROLL 0210 RWD 
SAD 1740 SBD 1742 STALLA 0008 TABLE 
TUMBLE 0009 WINDOW 0000 ZIP O2AA 


You'll notice that the listing for BANDIT looks a little 
different from others in this book. That's because it 

is the output of a resident assembler operating in 

an expanded KIM system. See the section on expansion 
for a further discussion of assemblers. 


You might like to change the payouts so that there is 

a “house percentage". That way, visitors will eventually 
Tun out of money if they play long enough. This has 

two possible advantages: it will teach them the evils 

of gambling, and they won't hog your KIM all day playing. 
this game. 
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O2BA 
1F4O 
0228 
1741 
0007 
1FE7 


B | i Z BY JIM BUTTERFIELD 


A teaching program which drills you on binary and 
hexadecimal numbering schemes. It's kind of fun 
just as a speed test. 


Start the program at 0200 and you'll see eight bits 
on the left side of the display. Some of the bits 
are in the lower position, meaning ‘off' or zero. 
Others will be in the top row, where they mean ‘on’ 
or logic one. 


All you have to do is translate those bits into hexadecimal 
notation, and enter the hex value. For example, if all 
bits happen to be 'on', the number you'd enter is FF; 

or if all the bits were ‘off’, you'd enter 00. 

KIM rewards a correct answer with another problem. 


If you're not yet at ease with the concept of bits 
and how they relate to hexadecimal numbering; a few 
runs of this program will help a lot. 


0200 D8 START CLD 

0201 AJ O01 LDA #1 Set FLAG2 .. 

0203 85 1D STA FLAG2 »» to new problem 
0205 20 40 1F MAIN’ JSR KEYIN set directnl reg 
0208 20 6A 1F JSR GETKEY get key input 
O20B C5 14 CMP PREV same as last time? 
020D FO 50 BEQ LIGHT yes, skip 

O20F 85 14 STA PREV record new input 
0211 C9 15 CMP #$15 no key? 

0213 FO 1C BEQ NOKEY yes, brnch 

0215 A6 1C LDX FLAG1 first digit found? 
0217 DO 0C BNE DIGL yes, check second 
0219 C5 16 CMP SEED1 first digit match? 
021B DO 42 BNE LIGHT no, ignore input 
O21D AA TAX. 

O21E BD E7 1F LDA TABLE,X change to segment 
0221 85 10 STA FLAG1 »-store.. 

0223 DO 3A BNE LIGHT ». and exit 
0225 C5 17 DIG1 CMP SEED2 second digit match? 
0227 DO 36 BNE LIGHT no, ignore input 
0229 AA TAX 

022A BD E7 iF LDA TABLE,X change to segment 
022D 85 1D STA FLAG2 

O22F DO 2E BNE LIGHT 

0231 A6 1D NOKEY LDX FLAG2 problem solved? 
0233 FO 2A BEQ LIGHT not yet, skip 
0235 A9 00 LDA #0 Clear... 

0237 85 1C STA FLAG1 »-for new problem 
0239 85 1D .STA FLAG2 

023B AD O4% 17 LDA TIMER get random value 
O23E AA TAX 

O23F 29 OF AND #$0F extract last digit 
0241 85 17 STA SEED2 »» and store 
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0243 8A TXA 


O244 4A 4A LSRA LSRA Extract first digit 
0246 4A 4A LSRA LSRA 

0248 85 16 STA SEED1 --and store 

O24A 86 15 STX SEED Store whole number 
O24C A2 FC LDX #$FC Minus 4 for window 
O24E AX 00 PATT LDA #0 Clear Accum 

0250 26 15 ROL SEED »ethen roll in.. 
0252 2A ROL A ».two bits.. 
0253 26 15 ROL SEED eeand.. 

0255 2A ROL A »-convert.. 
0256 A8 TAY oe tOee 

0257 B9 7B 02 LDA TAB,Y e segments 
025A 95 10 STA FLAG1,X 

025C E8 INX next segment 
025D DO EF BNE PATT 

O25F A9 7F LIGHT LDA #$7F Set directional.. 
0261 8D 41 17 STA SADD - registers 
0264 AO 09 LDY #9 

0266 A2 FA LDX #$FA Minus 6 

0268 B5 1E SHOW LDA FLAG2+1,X Window contents 
026A 8D 40 17 STA SAD 

026D 8C 42 17 STY SBD 

0270 C6 11 WAIT DEC MOD 

0272 DO FC BNE WAIT 

0274 C8 C8 INY INY 

0276 E8 INX 

0277 30 EF BMI SHOW 

0279 10 8A BPL MA 


IN 
027B 14 12 TAB ~BYTE $14, $12, $24, $22 


027D 24 22 end 


3206- L&8 AS @1 €5 10 24 4@ IF 2G 6A IF CS 14 F@ 5G SS 
C210- 14 C9 15 FS 1C 46 1C DE OC C5 16 DE 42 AA EL E7 
G220- IF 65 1C L@ 34 C5 17 L6 36 4A EL E7 IF 85 ID De 
3236- 2E A6 ID FO 2A AD 2B 6S IC BS IL AL @4 17 AA 29 
32e4d- OF &€5 17 8A 44 4A 4A 4A BS 16 86 15 A2 FC AD BD 
Z25e- 26 15 2A €6 15 2A AS LY 7E ZE 95 1C EB TG EF AY 
d266- 7F 8D 41 17 AQ O69 Ke FA E5 IE BD 4G 17 &C 4217 
02e70-~ Cé 11 D@ FC C& C& EB 3@ EF 18 GA 14 12 24 22 
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BLACKIACK mew 


Descriptions 


KIM uses a ‘'real* deck of cards in this game. 
So when you've seen four aces going by, you know 
that there will be no more - until the next shuffle. 


BLACKJACK starts at address 0200. You'll see the 
cards being shuffled - the word SHUFFL appears on the 
display - and then KIM will ask how much you want to bet. 


You'll start with an initial amount of $20. Your balance 
is always shown to the right of the BET? question, so 
on the first hand, you'll see BET? 20 on the display. 


You may bet from $1 to $9, which is the house limit. 
The instant you hit key 1 to 9 to signal your bet, 
KIM will deal. Of course, you can't bet more money 
than you have ... and KIM ignores freeloaders who try 
to bet a zero amount. 


After the deal, you’ll see both your cards on the left 
of the display, and one of KIM‘s cards on the right. 
(KIM's other card is a "hole" card, and you won't see 
it until it's KIM's turn to play). Aces are shown 

as letter A, face cards and tens as letter F, and 
other cards as their value, two to nine. As always, 
Aces count value 1 or 11 and face cards count 10. 


You can call for a third card by hitting the 3 button .. 
then the fourth card with the 4 button, and so on. 

If your total goes over 21 points, KIM will ungrammatically 
say BUSTED, and you'll lose. If you get five cards 

without exceeding 21 points, you'll win automatically. 

If you don't want any more cards, hit key 0. KIM will 
report your point total, and then will show and play 

its own hand. KIM, too, might go BUSTED or win on 

a five-card hand. Otherwise, the most points wins. 


From time to time, KIM will advise SHUFFL when the 
cards start to run low. 


Remember that you have a good chance to beat KIM at 
this game. Keep track of the cards that have been 

dealt (especially aces and face cards), and you're 

likely to be a winner! 


0200 A2 33 START LDX #51 52 cards in deck 
0202 8A DKi TXA Create deck 

0203 95 40 STA DECK,X by inserting cards 
0205 CA DEX into deck 

0206 10 FA BPL DKi in sequence 

0208 A2 02 LDX #2 Set up 3 locations 
020A BD BB 03 INLOP LDA INIT,X eo ilntOn. 

020D 95 75 STA PARAM,X zero page 

O20F CA ° DEX addresshi/ dpt/ amt 
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0210 10 F8 BPL INLOP- 


0212 AD 04 17 LDA TIMER’ use random timer 
0215 85 80 STA RND to seed random chain 
0217 D8 DEAL CLD main loop repeats here 
0218 A6 76 LDX DPT next-card pointer 
021A EO 09 CPX #9 less than 9 cards? 
021C BO 34 BCS NOSHUF 9 or more, don't shuffl 
shuffle deck 
O21E AO D8 LDY #SHUF-$300 Set up SHUFFL msg 
0220 20 57 03 JSR FILL put in WINDOW 
0223 AO 33 LDY #51 ripple 52 cards 
0225 84 76 STY DPT set full deck 


0227 20 30 03 SHLP JSR LIGHT £illuminate display 
022A 38 SEC 


022B A5 81 LDA RND+1 Generate 

022D 65 82 ADG RND+2 new 

022F 65 85 ADC RND+5 random 

0231 85 80 STA RND number 

0233 A2 04% LDX #4 

0235 B5 80 RMOV LDA RND,X move over 

0237 95 81 STA RND+1,X the random 

0239 CA DEX Seed numbers 

023A 10 F9 BPL RMOV 

023C 29 3F AND #$3F Strip to 0-63 range 

023E C9 34 CMP #52 Over 51? 

0240 BO E5 BCS SHLP yes, try new number 
swap each card into random slot 

0242 AA TAX 

0243 B9 40 00 LDA DECK,Y get next card 

0246 48 PHA save it 

0247 BS 4o LDA DECK,X get random card 

0249 99 4O 00 STA DECK,Y into position N 

O24C 68 PLA and the original card 

024D 95 40 STA DECK,X into the random slot 

O24F 88 DEY next in sequence 

0250 10 D5 BPL SHLP bek for next card 


; ready to accept bet 
0252 AO DE NOSHUF LDY #MBET-$300 Set up BET? msg 


0254 20 57 03 JSR FILL put in WINDOW 
0257 A5 77 LDA AMT display balance 
0259 20 A6 03 JSR NUMDIS «. put in WINDOW 
025C 20 30 03 BETIN JSR LIGHT illuminate display 
O25F C9 OA CMP #10 not key 0 to 9? 
0261 BO F9 BCS BETIN nope, ignore 
0263 AA TAX 
0264 86 79 STX BET store bet amount 
0266 CA DEX 
0267 30 F3 BMI BETIN zero bet? 
0269 E4 77 CPX AMT sufficient funds? 
026B BO EF BCS BETIN' no, refuse bet 

s bet accepted - deal 
026D A2 OB LDX #11 Clean WINDOW and 
026F AY 00 LDA #0 card counters 
0271 95 90 CLOOP STA WINDOW ,X 
0273 CA DEX 
0274 10 FB BPL CLOOP 
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0276 
0279 
027¢ 
027F 
0282 
0284 


0287 
028A 
028C 
028E 
0290 


0292 
0295 
0297 
0299 
029B 
029D 


029F 
O2Al 
O02A2 
02A4 
02A7 
O2A9 
O2AB 
02AD 
O2AE 


02B0 
02B1 
02B3 
02B5 
02B8 


02BB 
O2BE 
02C0 
02C2 
02C4 
02C6 
02C8 
O2CA 
02CC 
O2CE 
02D0 
O02D2 
02D4 
02D7 


02D9 
O2DC 
O2DF 


8F 
78 
64 
7A 
28 


30 
CA 
if 


F5 
78 


4o 
05 
53 
E8 


95 
00 


04 
00 
90 


FB 


95 


6D 
92 


28 
9A 
22 
29 
9B 


18 
22 
02 
9A 


2C 
8F 
E2 


28 


55 
28 


here come the cards 


03 JSR YOU one for you.. 
03 JSR ME & one for me.. 
03 JSR YOU another for you.. 
03 JSR CARD put my second card.. 
STX HOLE --in the hole 
03 JSR WLITE wait a moment 
; deal complete - wait for Hit or Stand 
03 TRY JSR LIGHT 
TAX DEX key input? 
BMI HOLD zero for Stand? 
CPX UCNT N for card #n? 
BNE TRY nope, ignore key 
Hit - deal another card 
03 JSR YOU deal it 
CMP #$22 22 or over? 
BCS UBUST yup, you bust 
CPX #5 5 cards? 
BEQ UWIN yup, you win 
BNE TRY nope, keep going 
; Stand - show player's total 
HOLD LDA WINDOW+5 save KIM card 
PHA on stack 
LDX #0 flag player .. 
03 JSR SHTOT -. for total display 
LDX #4 
LDA #0 
HLOOP STA WINDOW,X clean window 
DEX 
BPL HLOOP 
restore display card and hole card 
PLA display card 
STA WINDOW+5 back to display 
LDX HOLE get hole card 
03 JSR CREC rebuild 
03 JSR MEX play and display 
; KIM plays here 
03 PLAY JSR WLITE pause to show cards 
LDA MTOT point total 
CMP #$22 ..22 or over? 
BCS IBUST yup, KIM bust 
ADC MACE add 10 for aces? 
LDX WINDOW+1 five cards? 
BNE IWIN yes, KIM wins 
CMP #$22 22+ including aces? 
BCC POV nope, count ace high 
LDA MTOT yup, ace low 
POV CMP #$17 17 or over? 
BCS HOLD2 yes, stand.. 
03 JSR ME no, hit.. 
BNE PLAY unconditional Branch 
; KIM wins here 
03 UBUST JSR WLITE show player's hand.. 
03 JSR BUST make BUST message.. 
03 JSR WLITE ».and show it 
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02E2 
O02E4 
02E6 
02E8 
O2EA 


02ED 
02F0 
02F3 
O2F5 
O2F7 
02F9 
O2FB 
02FD 
O2FE 


0300 
0302 
0305 
0307 
0309 
030B 
030D 


030F 
0311 
0313 
0315 
0317 
0319 
0318 
031¢ 
031E 
031F 
0321 
0324 
0325 


0328 
032A 
032D 
032E 


0330 
0332 
0334 
0336 
0338 
033B 
033D 
0340 
0343 


03 
03 


03 
03 


03 


IWIN LDA AMT decrease balance 
SED SEC 
SBC BET «by amount of bet 
JLINK STA AMT store new balance 


XLINK JMP DEAL next play 
; Player wins here 
IBUST JSR BUST make BUST message... 


UWIN JSR WLITE display pause 
ADD LDA AMT increase balance 
SED CLC 
ADC BET by amount of bet 


LDY #$99 $99 maximum... 
BCC NOFLO have we passed it? 
TYA yes, restore $99 
BNE JLINK unconditional branch 
; KIM stands - compare points 
HOLD2 LDX #3 flag KIM.. 
JSR SHOTOT ». for total display 
LDA MTOT KIM's total.. 
CMP UTOT vs. Player's total.. 
BEQ XLINK same, no score; 
BCS IWIN KIM higher, wins; 
BCC ADD KIM lower, loses. 


; subroutines start here 
; SHTOT shows point totals per X register 
SHTOT LDA UTOT,X player's or KIM's total 


SED CLC 
ADC UAGCE,X try adding Ace points 
CMP #$22 exceeds 21 total? 


BCS SHOVER yes, skip 

STA UTOT,X no, make permanent 
SHOVER CLD 

LDA UTOT,X get revised total 


PHA save it 

LbDY #TOT-$300 set up TOT- msg 

JSR FILL put in WINDOW 

PLA recall total 

JSR NUMDIS insert in window 
; display pause, approx 1 second 
WLITE LDY #$80 timing constant 
WDO JSR LIGHT illuminate screen 

DEY countdown 

BNE WDO 


; illuminate display 

LIGHT STY YSAV Save register 
LDY #$13 
LDX #$5 6 digits to show 
LDA #$7F 


STA PADD set directional reg 
DIGIT LDA WINDOW,X 

STA SAD character segments 

STY SBD character ID 


WAIT INC PAUSE 
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0345 
0347 
0349 
O34A 
034¢ 
O34F 
0352 
0354 


0355 
0357 
0359 
035B 
035D 
0360 
0361 
0363 


0364 
0366 
0368 
036A 
036C 
036D 
036E 
0370 
0371 
0374 
0377 


0378 
037B 
037D 
037F 
0381 
0383 
0385 
0387 
0389 
038B 
038D 
038E 


038F 
0392 
0394 
0396 
0398 
039A 
039C 
039E 
03A0 
03A2 
03A4 
O3A5 


FC 
88 


EF 
4O 
6A 
72 


E6 
74 
05 


90 
F8 


64 
99 


96 
10 
02 
9B 
F8 
9A 
9A 


uly 
iF 


00 


03 
03 


03 


03 


; fill 
BUST 
FILL 


FILLIT 


+ deal 
CARD 


CREC 


; card 


YOU 


YOVER 


MOVER 


BNE WAIT wait loop 

DEY DEY 

DEX 

BPL DIGIT 

JSR KEYIN switch Dir Reg 
JSR GETKEY test keyboard 

LDY YSAV restore Y value 
RTS 

WINDOW with BUST or other message 
LDY #$BST-$300 

STY POINTR 

LDY #5 six digits to move 
LDA (POINTR),Y load a digit 
STA WINDOW, Y put in window 
DEY 

BPL FILLIT 

RTS 


a card, calc value & segments 
LDX DPT Pointer in deck 
DEC DPT Move pointer 

LDA DECK,X Get the card 

LSRA LSRA Drop the suit 


TAX 0 to 12 in X 

CLC no-ace flag 

BNE NOTACE branch if not ace 
SEC ace flag 


LDA VALUE,X value from table 

LDY SEGS,X segments from table 
RTS 

to player, including display & count 
JSR CARD deal card 

INC UCNT card count 

LDX UCNT use as display pointer 
STY WINDOW-1,X put card in Wndw 
LDY #$10 ten count for aces 

BCC YOVER no ace? 

STY UACE ace, set 10 flag 


CLC SED 

ADC UTOT add points to.. 
STA UTOT ».point total 
CLD 

RTS 


to KIM, including display & counts 
JSR CARD deal card 

DEC MCNT inverted count 

LDX MCNT use as (r) display pontr 
STY WINDOW+6, X into window 

LDY #$10 ten count for aces 

BCC MOVER no ace? 

STY MACE ace, set 10 flag 


CLC SED 

ADC MTOT add points to.. 
STA MTOT +» point total 
CLD 

RTS 
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03A6 
03A7 
03A9 
03AB 
O3AC 
O3AF 
O3B1 
03B2 
03B4 
03B5 
03B8 
03BA 


03BB 
03CB 
03D8 
03E2 


48 
LA 
LA 
A8 
B9 


68 
29 
A8 
BO 


60 
03 


ED 
F8 


0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
02A0 
02B0 
02C0 
02D0 
02E0 
02F0 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
03A0 
03B0 
03C0 
03D0 
03E0 


iF 


1F 


; transfer number in A to display 


NUMDIS PHA 


save number 


LSRA LSRA extract left digit 


LSRA LSRA 
TAY 


LDA TABLE,Y convert 


STA WINDOW+4 


PLA restore 
AND #$0F extract 


TAY 


LDA TABLE,Y convert 


STA WINDOWtT5 
RTS 
; tables in hex format 
01 02 03 04 05 06 07 08 
E6 ED FD 87 FF EF Fi Fi 
Fl Fi B8 FC FO F8 D3 
CO FC BE ED 87 F9 DE 


8A 95 40 CA 10 FA A2 02 BD BB 
AD 04 17 85 80 D8 A6 76 ED 09 
03 AO 33 84 76 20 30 03 38 AS 
80 A2 04 BS 80 95 81 CA 10 F9 
AA B9 40 00 48 BS 40 99 40 00 
AO DE 20 57 03 AS 77 20 AG 03 
FQ AA 86 79 CA 30 F3 E4 77 BO 
90 CA 10 FB 20 78 03 20 8F 03 
86 7A 20 28 03 20 30 03 AACA 
20 78 03 C9 22 BO 4O EO 05 FO 
A2 00 20 OF 03 A2 04 AQ 00 95 
95 A6 7A 20 6D 03 20 92 03 20 
BO 29 65 9B A6 91 DO 18 C9 22 
BO 2C 20 8F 03 DO E2 20 28 03 
AS 77 F8 38 E5 79 85 77 4C 17 
03 AS 77 F8 18 65 79 AO 99 90 
20 OF 03 AS 9A CS 97 FO DF BO 
18 75 98 C9 22 BO 02 95 97 D8 
57 03 68 20 A6 03 AD 80 20 30 
AO 13 A2 05 AQ 7F 8D 41 17 BS 
17 E6 7B DO FC 88 88 CA 10 EF 
AY 7F 60 AO E6 84 74 AO 05 Bl 
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09 
F1 


to segments 


digit 
right digit 


to segments 


10 10 10 10 
Fi 


BLACK MATCH 225° 
(modified b 
the eattore) 


Description - 

There are 21 matches. Each player must take 1,2, or 
3 matches per turn. The player who winds up with the last 
match loses. The player plays against the computer and goes 
first. Starting address - 0200, press "GO". Player enters 
a number on the keyboard; the left two digits display the 
players number. The centre digits display the computer's 
choice after some "think time". The rightmost digits display 
a running total of matches left. The computer has an I.Q. 
and will become dumber if you lose, smarter if you win. 


0200 AQ 21 START LDA #$21 initial IQ 

0202 85 ED STA IQ 

0204 AQ 21 NEW LDA #$21 21 matches 

0206 85 F9 STA INH to start game 
0208 A9 00 PLAY LDA #0 clear player's move 
O20A 85 FB STA POINTH 

O20C 20 1F iF JSR SCANDS light display 

O20F 20 6A 1F JSR GETKEY and test keys 
0212 C9 O4 CMP #4 key 4 or over? 
0214 10 F2 BPL PLAY go back 

0216 C9 00 CMP #0 key 0? go back 
0218 FO EE BPL PLAY 

021A 85 FB STA POINTH record move 

021C AY 00 LDA #0 wipe last KIM move 
O21E 85 FA STA POINTL 

0220 F8 SED decimal mode 

0221 38 SEC 

0222 A5 FO LDA INH get total matches 
0224 E5 FB SBC POINTH subtract move 

0226 30 EO BMI PLAY not enough matches? 
0228 85 FY STA INH OK, new total 

022A AQ 08 LDA #8 

022C 85 EE STA SLOW set slow counter 
022E AQ FF TIME LDA #$FF slowest count into.. 
0230 8D 07 17 STA CLOCK ..Slowest KIM timer 
0233 20 1F iF DISP JSR SCANDS 

0236 2C 07 17 BIT CLOCK 

0239 10 F8 BPL DISP 

023B C6 EE DEC SLOW 

023D DO EF BNE TIME 

023F 18 CLC 

0240 A5 FO LDA INH get total 

0242 FO 26 BEQ DEAD player loses? 

0244 69 O04 ADC #4 divide m-1 by 4 
0246 ES O04 SUB SBC #4 

0248 FO OB BEQ DUMP 

O24A C9 O4 CMP #4 

024C BO F8 BCS SUB keep dividing 
O24E AE 46 17 LDX 1746 random, timer#2 
0251 E4 ED CPX IQ KIM smart enough? 
0253 BO 02 BCS COMP Yes 

0255 AY O1 DUMP LDA #1 No 
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0257 
0259 
025A 
025C 
025E 
0260 
0262 
0264 
0266 
0268 
026A 
026C 
026E 
026F 
0271 
0273 
0275 
0278 
027A 
027C 


B2eg- 
d210- 
bee 
C238- 
J24G- 
g25¢- 
g3e66- 
B27E- 


iF 


COMP 


DEAD 


SHOW 


LOK 


end 


Ag 
1g 
E5 
lF 
69 
v2 
AZ 
FA 


STA 


SEC 
LDA INH 


SBC 


STA INH 
BNE PLAY 


LDA #$5A 
LDY Ve 
TQ 


LSR 
BPL SHOW 
LDX #$DE 
LDY #$AD 
SEC 

ROL IQ 


STX 
oTY 
JSR 


BNE NEW 
BEQ LOK 


21 


Fe 
FE 
\F 
G4 
AQ 
FE 
PAG) 


65 F9 
C9 62 
32 EZ 
2C B87 
E9 GA 
G1 85 
46 ED 
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POINTL 


POINTL 


POINTH 
POINTL 
SCANDS 


Record the move 


Subtract KIM move 
from total 


Player wins: 
SAFE 
get smart 


KIM wins: 
DEAD 


get dumb 


new game if key 


@Z &5 
EE 85 
F9 AQ 
1G FS 
@B C9 
38 AS5 
G7 #e 
bA FO 


FB 


06 
C6 
CA 
F9 
DE 


26 
A9 
85 
EE 
BG 
ES 
AG 


IF 


EE 
bis 
F& 
FA 
AD 


IF 


} BS 


A9 
EF 
AE 
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CARD DEALER  ; -. 1x 


AT 0000. 
0000 A2 06 
0002 AO 00 
0004 94 8B 
0006 CA 
0007 DO FB 
0009 D8 
000A = A2 34 
000C 86 92 
O0O0OE C8 
OOOF 94 92 
0011 CA 
0012 ODO FB 
0014 AS 92 
0016 DO 03 
0018 4C 4F 1c 
001B AD O04 17 
001E ODO OB 
0020 AD 44 17 
0023 DO 06 
0025 AS 92 
0027 4A 
0028 18 
0029 69 01 
002B C5 92 
002D 90 07 
002F FO 05 
0031 E5 92 
0033 4C 2B 00 
0036 A2 33 
0038 38 
0039 F5 93 
003B FO 03 
003D CA 
003E 10 F8 
0040 95 93 
0042 C6 92 
0044 8A 
0045 4A 
0046 4A 
0047 A8 


DESCRIPTION - 

THIS PROGRAM WILL DEAL A FULL DECK OF 52 CARDS. 
THE VALUE AND SUIT OF THE CARDS APPEARS IN THE RIGHT 
TwO DIGITS OF THE DISPLAY. 
ANOTHER CARD, 
CARDS HAVE BEEN DEALT, THE PROGRAM MUST BE RESTARTED 


INIT 


INIT 1 


INIT 2 


NEWCRD 


RANDOM 


FASTER 


FIND 
FIND 1 


UPDATE 


LDX 
LDY 
STY 


BNE 
CLD 
LDX 
STX 
INY 
STY 
DEX 
BNE 
LDA 
BNE 
JMP 
LDA 
BNE 
LDA 
BNE 
LDA 
LSR 
CLC 
ADC 


BCC 
BEQ 
SBC 
UMP 
LDX 
SEC 
SBC 
BEQ 


BPL 
STA 
DEC 


LSR 
LSR 
TAY 
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PRESS ANY KEY TO GET 
EACH WILL APPEAR ONLY ONCE. WHEN ALL 


#$06 
#500 
008B,X 


INIT 1 


#934 
0092 


0092,Xx 


INIT 2 
0092 
RANDOM 
START 
1704 
FASTER 
1744 
FASTER 
0092 


#$01 
0092. 
FIND 
FIND 
0092 
FASTER 
%$ 33 


0093,Xx 
UPDATE 


FIND 1 
0093,x 
0092 


CLEAR DISPLAY 
C8C-91)=0 


FILL DECK 
STORE CARDS LEFT (52) 
(€93-C6)=1 


DECK FINISHED? 


YES, STOP 
GET RANDOM # C1-FF) 


BOTH CLOCKS OUT OF RANGE 
# APPROX. MIDDECK 


GET NUMBER 1-34 


FIND THE CARD 

KEEP SUBTRACTING CARD 
CARD=0 MEANS PICKED 
CARD=1 MEANS IN DECK 
X=CARD POSITION 


CARD=0 

1 LESS CARD LEFT 

GET FIRST 6 BITS OF xX 
Y=C0~C) 


0048 B9 7B 00 LDA 007B,Y GET VALUE FROM VALTBL 


004B 85 90 STA 0090 STORE AS 5TH DISPLAY DIGIT 
004D 8A TXA GET LAST 2 BITS OF X 
OO4E 29 03 AND #503 Y=(0-3) 
0050 A8 TAY 
0051 B9 88 00 LDA 0088,Y GET SUIT FROM SUITBL 
0054 85 91 STA 0091 STORE AS 6TH DISP. DIGIT 
0056 20 62 00 K DOWN JSR DISP DISPLAY C8C-91) 
0059 DO FB BNE K DOWN UNTIL KEY UP 
005B 20 62 00 K UP JSR DISP DISPLAY (8C-91) 
005E ODO BY BNE NEWCRD UNTIL KEY DOWN 
0060 FO F9 BEQ K UP 
0062 AQ 7F DISP LDA #$7F SEGMENTS TO OUTPUT 
0064 8D 41 17 STA 1741 
0067. Ao 00 LDY #$00 INITIALIZE 
0069 A2 08 LDX #$08 
0068 89 8C 00 DISP 1 LDA 008C,Y GET CHARACTER 
O06E 84 FC STY OOFC 
0070 20 4E 1F JSR 1F4E DISPLAY CHARACTER 
0073 C8 INY NEXT CHARACTER 
0074 CO 06 CPY #$06 
0076 90 F3 BCC DISP 1 
0078 4C 3D 1F JMP 1F3D DONE, KEY DOWN? 
bibipibibip ibid TABLES bib ibid ii ded 
007B 77 VALTBL AN 
007C 5B mon 
007D GF gn 
OO7E 66 mat 
007F 6D ton 
0080 7D "gn 
0081 07 mgt 
0082 7F ng 
0083 6F Ng" 
0084 78 ty 
0085 1E meget 
0086 67 Li 6 
0087 70 mK 
0088 6D SUI TBL Nom 
0089 76 mys 
008A SE up" 
008B 39 Nici 
xR HEX DUMP - CARD DEALER “sxx 


0000 A2 06 AO 00 94 8B CA DO FB D8 A2 34 86 92 C8 94 
0010 92 CA DO FB AS 92 DO 03 4C 4F 1C AD O04 17 DO OB 
0020 AD 44 17 DO 06 A5 92 4A 18 69 01 C5 92 90 07 FO 
0030 05 E5 92 4C 2B 00 A2 33 38 F5 93 FO 03 CA 10 F8 
0040 95 93 C6 92 8A 4A 4A A8 BI 7B 00 85 90 8A 29 03 
0050 A8 BY 88 00 85 91 20 62 00 DO FB 20 62 00 DO B4 
0060 FO F9 AI 7F 8D 41 17 AD 00 A2 08 BY 8C 00 84 FC 
0070 20 4E 1F C8 CO 06 90 F3 4C 3D 1F 77 5B 4F 66 6D 
0080 7D 07 7F 6F 78 1E 67 70 6D 76 5E 39 
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CHESS CLOCK 2: 


DESCRIPTION - 

THE PROGRAM STARTS AT LOCATION 0200. TWO INDEPENDENT 
CLOCKS ARE OPERATED BY THE TWO PLAYERS BY DEPRESSING KEYS 
1 OR 2 RESPECTIVELY. THE RIGHT TWO DIGITS SHOW THE MOVE 
NUMBER, THE LEFT FOUR DIGITS SHOW MINUTES AND SECONDS. 
MAXIMUM TIME IS 99 MINUTES 59 SEC. THE CLOCK PROGRAM CAN 
BE FINELY TUNED BY CHANGING THE VALUE OF WORD 027F, INCREASE 
BY 1 SLOWS THE CLOCK BY APPROXIMATELY 6 SEC/24 HOURS AND 
VICE VERSA. 


0200 AS 00 LDA #$00 ZERO ALL OF PAGE ZERO 

0202 AA TAX 

0203 9D 00 00 ZERO STA 0000,X 

0206 £8 INX 

0207 DO FA BNE ZERO 

0209 20 1F 1F DISP JSR SCANDS DISPLAY ZEROS 

020C 20 6A 1F JSR GETKEY KEY PRESSED? 

020F C9 02 CMP #$02 KEY # 2? 

0211 DO F6 BNE DISP NO, WAIT TILL 2 DOWN 

0213 AQ Ol LOOP LDA #$01 FLAG TO 1 

0215 85 D4 STA 0004 CCLOCK #1 TO RUN) 

0217 20 60 02 JSR TIME GET CLOCK RUNNING 

021A 20 31 02 JSR SAVE SAVE TIME ON DISPLAY 

021D AQ 02 LDA #$02 FLAG TO 2 

021F 85 D4 STA 0004 CCLOCK #2 TO RUN) 

0221 20 60 02 JSR TIME GET OTHER CLOCK RUNNING 

0224 18 CLC «ee INCREMENT MOVE 

0225 AS FQ LDA 00F9 NUMBER... 

0227 69 Ol ADC #$01 

0229 85 FQ STA O00F9 

022B 20 31 02 JSR SAVE SAVE CLOCK 2 TIME 

022E 4c 13 02 JMP LOOP BACK TO CLOCK # 1 
wx SAVE TIME INDICATED SUBROUTINE ***3# 

0231 AQ 02 SAVE LDA #$02 CLOCK # 2? 

0233 CS D4 CMP 00D4 

0235 00 11 BNE CLK1 NO, STORE FOR CLOCK # 1 

0237 AS FB LDA OOFB .e. STORE VALUES FOR 

0239 85 D2 STA 00D2 CLOCK # 2 IN 00D2 

023B AS FA LDA OOFA AND 00D3 ... 

023D 85 D3 STA 00D3 

023F AS DO LDA 00D0 .e. LOAD DISPLAY WITH 

0241 85 FB STA OOFB VALUES FOR CLOCK #1... 

0243 AS Dl LDA 00D1 

0245 85 FA STA OOFA 

0247 60 RTS 

0248 AS FB CLK1 LDA OOFB wes STORE VALUES FOR 

024A 85 DO STA 00D0 CLOCK # 1 IN 00DO 

024C AS FA LDA OOFA AND 00D1 ... 

O24E 85 Dl STA 00D1 

0250 AS D2 LDA 00D2 ... LOAD DISPLAY WITH 

0252 85 FB STA OOFB VALUES FOR CLOCK # 2... 

0254 AS D3 LDA 00D3 

0256 85 FA STA OOFA 

0258 60 RTS 
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0260 
0261 
0263 
0265 
0267 
026A 
026D 
0270 
0272 
0274 
0275 
0278 
027A 
027C 
027E 
0280 
0283 
0286 
0288 
0289 
028B 
028D 
028F 
0291 
0293 
0294 
0296 
0298 
029A 
029C 
029E 


0230- 
G218- 
G0220- 
0230- 
O240- 
0250- 
0260~ 
0276- 
O280- 
0290- 
G2A0- 


Ag 
G2 
D4 
G2 
D@ 
AS 
F& 
CS 
8D 
68 
G2 


AH CLOCK ADVANCE SUBROUTINE *#*% 


TIME 


07 17 WAIT 


06 17 
07 17_ TINY 


NOMN 


60 02 


SED 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
CMP 
BNE 
RTS 
BIT 
BPL 
DEC 
BNE 
LDA 
STA 
BIT 
BPL 
CLC 
LDA 
ADC 
STA 
CMP 
BNE 
SEC 
LDA 
STA 
LDA 
ADC 
STA 
JMP 


#$04 
00D5 
#SFO 
1707 


SCANDS 
GETKEY 


00D4 
WAIT 


1707 
LITE 
00D5 
LOAD 
#$BF 
1706 
1707 
TINY 


OOFA 
#$01 
OOFA 
#$60 
NOMN 


#$00 
OOFA 
O0FB 
#$00 
OOFB 
TIME 


HEARX HEX DUMP — CHESS 


AA 9D 
F6 AQ 
68 62 


1) 
01 
18 


0G ES LO 
85 D4 26 
AS F9 69 


D2 11 


85 FA 60 
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SET DECIMAL MODE 
TIME MULTIPLIER TO 4 


SET TIMER 


DISPLAY CLOCK 

GET KEYBOARD ENTRY 
EQUAL TO FLAG? 

NO, TIME OUT THEN UPDATE 
YES, RETURN FROM SUBR. 
TIME DONE? 

NOT YET 

DECREMENT TIME MULT. 
NOT ZERO, RESET TIMER 
LAST LITTLE BIT OF TIME 
INTO TIMER 

DONE? 

NO 

. ONE SECOND ADDED 

TO CLOCK.. 


CCENTER TWO DIGITS) 
A MINUTE UP? 

NOT YET 

YES, SEC, TOZERO 


+» MINUTES INCREMENTED 
IF CARRY SET ... 


LOOP 


ar Reese ita 
CLOCK 32222 


FA 
66 
Ol 
FE 
AS 


IF 1F 2@ 6A IF C9 


@2 28 31 B2 AD B2 BS 
85 F9 28 31 B62 4C 13 
85 De AS FA 85 D3 AS 
FE 85 D@ AS FA 8S Dl 


20 IF IF 20 6A IF 
C6 DS DO E7 AD BF 
FA 69 @1 85 FA C9 


FE 69 08 85 FB 4C 60 


CLOCK  ~ nes ne 


This clock routine uses KIM's built in interval timer with the 
interrupt option. It works by loading $F4 into the timer (/1024) each 
time the Non-Maskable Interrupt (NMI) occurs. This theoretically pro- 
duce a time of 249,856 microseconds or just under % second. The adjust- 
ment to % second is done with the timer (/1) in the interrupt routine. 
A fine adjustment of the clock can be made by modifying the value in 
location $0366. Only two subroutines will be documented here (ESCAPE 
TO KIM & HOUR CHIME) but many more can be added by simply replacing 
the NOP codes starting at $03DE with jumps to your own subroutines. 
For instance, a home control system could be set up using the clock 
program. 


The escape to KTM allows KIM to run without stopping the clock. 
This means that you can run other programs simultaneously with the 
clock program unless your program also needs to use the NMI (such as 
single step operation) or if there could be a timing problem (such as 
with the audio tape operation), Pressing the KIM GO button will get 
you out of the KIM loop. 





To start the clock: 


1. Connect PB? (A-15) to NMI (E-6). 

2. Initialize NMI pointer (17FA, 17FB) with 60 and 03. 

3- Set up the time and AM-PM counter locations in page 
zero. 

4, Go to address $03CO and press GO. 


To get back into the clock display mode if the clock is run- 
ning - start at location $03C9. 


NOTE: These routines are not listed in any particular order 
so be watchful of the addresses when you load them, 


PAGE ZERO LOCATIONS 


0070 NOTE Sets frequency of note 
0080 QSEC % second counter 

0081 SEC second counter 

0082 MIN minute counter 

0083 HR hour counter 

0084 DAY day counter for AM-PM 
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INTERRUPT ROUTINE 


This routine uses the NMI to update a clock in zero page 
locations. Since the crystal may be slightly off one MHz a 
fine adjustment is located at 0366. NMI pointers must be set 
to the start of this program. 


0360 48 PHA save A 

0361 8A TXA 

0362 48 PHA save X 

0363 98 TYA 

0364 48 PHA save Y 

0365 A983 LDA #$83 fine adjust timing 
0367 8DO417 STA TIME4 

036A 2C0717 TM BIT TIME? test timer 

036D 10FB BPL TM loop until time out 
036F E680 INC SEC count 4 seconds 

0371 A904 LDA #$04 do four times before 
0373 C580 CMP QSEC updating seconds 
0375 D038 BNE RIN 

0377. A900 LDA #$00 reset & second counter 
0379 8580 STA QSEC 

037B 18 CLC 

037C F8 SED advance clock in decimal 
037D A581 LDA SEC 

037F 6901 ADC #$01 advance seconds 

0381 8581 STA SEC 

0383 C960 CMP #$60 until 60 seconds 
0385 D028 BNE RIN 

0387 A900 LDA #$00 then start again 
0389 8581 STA SEC 

038B A582 LDA MIN 

038D 18 CLC 

O38E 6901 ADC #$01 and advance minutes 
0390 8582 STA MIN 

0392 C960 CMP #360 until 60 minutes 
0394 DO19 BNE RIN 

0396 A900 LDA #$00 then start again 
0398 8582 STA MIN 

039A A583 LDA HR and advance hours 
039C «(18 CLC 

039D 6901 ADC #$01 

OZ9F 8583 STA HR 

O3Al C912 CMP #$12 until 12 hours 

03A3 DOO2 BNE TH 

O3A5 E684 . INC DAY advance }% day 

O3A7 C913 TH CMP #$13 if 13 hours 

O3A9 DOO4 BNE RIN start again with one 
O3AB A9OL LDA #301 

OZAD 8583 STA HR 

O3AF D8 RIN CLD go back to hex mode 
O3BO0 A9F4& LDA #5F4 start timer with interrupt 
O2B2 8DOF17 STA TIMEF in 249,856 microseconds 
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03B5 68 PLA 


O3B6 A8& TAY restore Y 

03B7. +68 PLA 

O3B8 AA TAX restore X 

03B9 68 PLA restore A 

O3BA 40 RTI return from interrupt 


ESCAPE TO KIM IF 1 ON KIM IS PRESSED 


This is a subroutine which will return to the KIM monitor routine 
without stopping the real time clock. It is done by pressing 1 on the 
KIM keyboard. 


0300 206AlF KIM JSR GETKEY go back to KIM if 
0303 C901 CMP #3501 KIM keyboard is one 
0305 DOOD BNE ENDR 

0307 2Ol1F1F JSR SCANDS delay to make sure 
O30A 206Al1F JSR GETKEY 

030D C901 CMP #301 

O30F D003 BNE ENDR 

0311 4CO51C JMP SAVE] 

0314 60 ENDR RTS 


TWO TONE SOUND TO INDICATE HOURS 


This is a subroutine which when added to the clock display 
routine will use the real time clock data to produce one sound 
per hour on the hour. The output is a speaker circuit as shown 
on Pg. 57 of the KIM-1 Manual. It is hooked to PBO rather than 
PAO. The specific notes can be changed by altering 0330 and 033C. 


0320 A582 BEEP LDA MIN on the hour? 
0322 D029 BNE “ND if not return 
0324 A581 LDA SEC execute until SEC = HR 
0326 38 SEC 

0327 E583 SBC HR 

0329 1024 BPL END 

032B A580 AGAIN LDA QSEC first 4 second? 
032D DOO6 BNE ONE 

O32F AQI1E LDA #}1E set high note 
0331 8570 STA NOTE 

0333 DOOA BNE GO sound note for 4 second 
0335 A901 ONE LDA #401 second % second? 
0337 C580 CMP SEC 

0339 DO14 BNE END 

033B A928 LDA #$28 set low note 
033D 8570 STA NOTE 

033F A901 “-GO LDA #$01 set I/0 ports 
0341 8D0317 STA PBDD 

0344. EEO217 INC PBD toggle speaker 
0347 A570 LDA NOTE 

0349 AA TAX set delay 

O34A CA DEC DEX 

034B 10FD BPL DEC 

O34D 30DC BMI AGAIN keep sounding 
O34F 60 END RTS 
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DISPLAY CLOCK ON KIM-] READOUT 


03CO A900 LDA #$00 reset % second counter 
03C2 8580 STA QSEC 

03C4 AOF4 LDA #$F4 start timer with interrupt 
03C6 8DOF1? STA TIMEF 

03C9 «A581 DSP LDA SEC start here if clock is running 
O3CB 85F9 STA INH display clock on KIM 
O3CD A582 LDA MIN 

O3CF 85FA STA POINTL 

O3D1 A583 LDA HR 

03D3 85FB STA POINTH 

03D5 201F1F JSR SCANDS 

03D8 200003 JSR KIM escape to KIM 

O3DB 202003 JSR BEEP sound on the hour 
O3DE EAEAEA 

O3El EAEAEA 

O3E4 EAEAEA 

O3E7 EAEAEA 

O3EA EAEAERA 

O3ED EAEAEA 

O3FO EAEAEA 

O3F3 EAEAEA 

O3F6 EAEAEA 

O3F9 EAEAEA 

OZFC 4CC903 JMP DSP 


***** Hex Dump - Clock *#*** 


O366- 20 6A IF C9 O1 DO OD 20 IF IF 26 6A IF C9 B1 DO 
0310- @3 4C O05 1C 68 

8326- AS 82 DO 29 AS 81 38 E5 63 10 24 AS 8B DO B6 AD 
0336- 1E 65 70 DO OA AD B1 C5 8B DO 14 AY 28 85 78 AD 
6340- @1 6D 03 17 EE @2 !7 AS 78 AA CA 16 FD 306 DC 66 


B3608- 48 8A 48 98 48 AD B83 BD BA 17 20 CB 17 16 FB E6 
0370- 80 AI B4 CS &B DO 38 AD BO 85 8H 18 FB AS 81 69 
O380- 01 &5 &1 CS 42 DB 28 AD BB 8S 81 AS 82 18 69 Bl 


8390- 85 82 C9 60 LE 19 AD BB 85 B82 AS 83 18 69 O1 85 
B3A0~ 83 C9 12 DO 62 E6 84 C9 13 DO G4 AD B1 85 83 C8 
Q3E0- AY F4 &D @F 17 68 A&B 68 AA 68 4G 

@3CO- AY 6@ 85 88 AO F4 8D OF 17 AS 81 85 FO AS 82 85 
O@3D8- FA AS 83 65 FB 20 IF IF 28 08 83 20 20 G3 EA EA 
O3EO- EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA EA 
O3FG- EA EA EA EA EA EA EA EA EA EA EA EA 4C C9 63 
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CODE TEST 


DESCRIPTION — 
THIS PROGRAM REQUIRES THAT A SPEAKER BE HOOKED 


BY STAN OCKERS 


TO PAO AS IN FIGURE 5.1 OF THE KIM MANUAL. WHEN STARTED 
AT 0200, THE PROGRAM WILL SEND 5 LETTER CODE GROUPS, 
CINTERNATIONAL MORSE), OVER THE SPEAKER. THE CODE GROUPS 
WILL CONSIST OF RANDOM CHARACTERS INCLUDING A-Z, 0-9, A 
PERIOD, COMMA, QUESTION MARK AND EQUAL SIGN. AFTER THIS 
TRANSMISSION, YOUR RECEPTION CAN BE CHECKED BECAUSE THE 
GROUPS SENT WILL BE SHOWN ON THE DISPLAY. PRESSING ANY 

KEY WILL CAUSE THE NEXT GROUP TO BE DISPLAYED. LIMITATIONS 
IMPOSED BY THE 7 SEGMENT DISPLAYS MAKE SOME CHARACTERS 
PRETTY STRANGE AND THERE IS SOME REDUNDANCY; BUT BY SLOWING 
THE TRANSMISSION YOU SHOULD BE ABLE TO FIGURE OUT WHAT 


EACH CHARACTER IS. 


0200 
0202 
0205 
0207 
0208 
020A 
020C 
020F 
0211 
0213 
0215 
0217 
0219 
021C 
021F 
0221 
0223 
0225 
0226 
0229 
022B 
022E 
0230 
0232 
0234 
0236 
0239 
0238 
023D 
023F 
0241 
0243 
0246 


02 INIT 


02 


02 
02 


03 


03 


02 


02 


GRUP 


CHAR 


NUMB 


BITS 


SPAC 


LDX 
LDA 
STA 
DEX 
BPL 
LDX 
JSR 


STA 
DEC 
BEQ 
LDX 
JSR 
JSR 
AND 


BPL 
TAX 
LDA 
LDY 
STA 
INC 
LDA 
CMP 
BEQ 
LDA 
STA 
ASL 
BEQ 
BCS 
LDX 
JSR 
LDX 


#50C 
02DF,X 
00E2,X 


INIT 
#504 
SPACE 
#$06 
00EO 
00EO 
GRUP 
#$03 
SPACE 
RAND 
#$3F 
#$28 
NUMB 


0313,X 
00E2 
033B,Y 
00E2 
00E2 
451A 
DEBO 
02EB,X 
OODF 
OODF 


DASH 
#501 
MARK 
#$01 
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eee INITIALIZATION ... 
-. 12 VALUES ARE LOADED 
FROM OOE2 ON UP .. 


~ (SPACE LENGTH) 


SPACE FOR ANOTHER GROUP 
GROUP SIZE, 5 CHAR. 


NEXT CHAR, IN GROUP 
FINISHED, GET NEW GROUP 
CSPACE LENGTH) 

SPACE BETWEEN CHAR, 

GET A RANDOM # 

MAKE SURE POSITIVE 

LESS THAN 41 CDECIMAL)? 
NO, GET ANOTHER 

USE AS INDEX 

GET DISPLAY CONVERSION 
CHAR, INDEX IN Y 

STORE CONVERSION 

INDEX UP ONE 

LAST CHARACTER? 


YES, GO READOUT 

GET CODE CHARACTER 
TEMPORARY STORE 

SHIFT 

EMPTY, GET NEXT CHAR, 
IF CARRY SET, SEND DASH 
ELSE SEND DOT 


THEN SPACE 


0248 
024B 
O24C 
024E 
0250 
0253 
0254 
0256 
0259 
025C 
025E 
0261 
0263 
0264 
0266 
0268 
026A 
026C 
026E 
0271 
0272 
0274 
0276 
0278 
027A 
027C 
Ge,c 
0280 


0282 
0284 
0286 
0289 
028B 
028E 
0291 
0293 
0294 
0296 
0299 
029B 
029D 
029F 


02A0 
02A2 
02A4 
02A7 
02AA 
02AC 
02AE 
02B0 


20 AO 02 JSR SPACE 
18 CLC 
90 ED BCC BITS 
A2 03 DASH LDX #503 
20 82 02 JSR MARK 
18 CLC 
90 FO BCC SPAC 
20 8E 1E DEBO JSR INIT1 
20 Bl 02 JSR DISP 
DO F8 BNE DEBO 
20 Bl 02. WAIT JSR DISP 
FO FB BEQ WAIT 
18 CLC 
A5 E4 LDA 00E4 
69 05 ADC #$05 
85 E4 STA 00E4 
AO 04 LDY #$04 
Bl E4 WIND LDA (00E4),Y 
99 E8 00 STA 00E8,Y 
88 DEY 
10 F8 BPL WIND 
C6 E3 DEC 00E3 
DO DE BNE DEBO 
AQ 36 LDA #$36 
85 E4 STA 00E4 
AQ 05 LDA #$05 
85 E3 STA 00E3 
DO D4 BNE DEBO 
Piel b ibid MARK SUBROUTINE Pi bi pi bid 
86 DD STX 00DD 
A5 E6 TIMM LDA 00E6 
8D 07 17 STA 1707 
AQ 01 LDA #501 
8D 01 17 STA 1701 
EE 00 17  TOGG INC 1700 
A6 E7 LDX 00E7 
CA FREQ DEX 
DO FD BNE FREQ 
2C 07 17 BIT 1707 
10 F3 BPL TOGG 
C6 DD DEC 00DD 
DO E5 BNE TIMM 
60 RTS 
HER SPACE SUBROUTINE 534% 
86 DD DISP STX OGDD 
A5 E6 TIMS LDA 00E6 
8D 07 17 STA 1707 
2C 07 17 HOLD BIT 1707 
10 FB BPL HOLD 
C6 DD DEC 00DD 
DO F2 BNE TIMS 
60 RTS 
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UNCOND, JUMP 
(DASH LENGTH) 
SEND A DASH 


UNCOND, JUMP 
. ~DEBOUNCE KEY.. 


WAIT FOR KEY RELEASE 
WAIT FOR KEY DOWN 


«UPDATE POINTER TO 
POINT AT NEXT GROUP.. 


.-LOAD WINDOWS 00E8- 
OOEC WITH CONVERSIONS 
FOR DISPLAY.. 


LAST GROUP? 
NO, GET ANOTHER 
REINITILIZE POINTER 

TO RUN THRU GROUPS AGAIN 


UNCOND. JUMP 


TEMP. STORE 
SPEED BYTE 
START TIMER 
PAQ TO OUTPUT 


TCGGLE PAO 
DETERMINE FREQ. 


TIME UP? 
NO 
DETERMINE MARK LENGTH 


ew 


TEMP. STORE 
SPEED BYTE 
START TIMER 
DONE? 

NO 

FULL TIME UP? 
NO 


xkkkk Display Subroutine ******* 


02Bl AQ 7F DISP LDA #$7F change segments.. 
02B3 8D 41 17 STA PADD --to outputs 
02B6 AO 00 LDY #0 init. recall index 
02B8 A2 09 LDX #9 init. digit number 
02BA B9 E8 00 SIX LDA O0OE8,Y get character 
Q2BD 84 FC STY YSAV save Y 
O2BF 20 4E 1F JSR DISPL display character 
02C2 C8 INY set up for next char 
02C3 CO 06 CPY #6 6 chars displayed? 
02C5 90 F3 BCC SIX no, do more 
02C7 20 3D 1F JSR KEYTS key down? 
02CA 60 RTS 

**eekk*k Random Number Subroutine ****** 
02CB 38 D8 RAND SEC CLD 
02CD A5 D1 LDA RND+1 from Kim User Notes 
O2CF 65 D4 ADC RND+3 vol l, #1 
02D1 65 D5 ADC RND+4 (J. Butterfield) 
02D3 85 DO STA RND 
02D5 A2 04 LDX #4 
02D7 BS DO ROLL LDA RND,X 
02D9 95 Dl STA RND+1,X 
02DB CA DEX 
02DC 10 F9 BPL ROLL 
O2DE 60 RTS 


kkekk Tnitialization Values **#***** 
O2DF 00 05 36 03 33 6% CO CO CO CO CO 00 

kxkkk Morse Code Characters ******kk 
O02EB 60 88 A8 90 40 28 DO 08 20 78 BO 48 EO AO FO 68 
O2FB D8 50 10 CO 30 18 70 98 B8 C8 FC 7C 3C 1C OC 04 
030B 84 C4 E4 F4 56 CE 32 8C 

keke Display Characters KkKkkKRKKKEK 
0313 F7 FC B9 DE FS FI BD F6 84 9E FO B8 B7 D4 DC F3 
0323 E7 DO ED F8 BE EA 9C 94 EE C9 BF 86 DB CF E6 ED 
0333 FD 87 FF EF 90 84 D3 C8 

*** Characters sent stored in 033B - O3FF *** 

CHANGES: The program sends and displays 5 groups of 
5 characters each. This may be changed, although 
you may need to do some debugging along the way. 
Important parameters are: 
~-0233 contains characters-to-be-sent, plus one; 
~-02E0 contains groups-to-be-displayed-after-transmission; 
--02E3 contains speed-of-transmission; hex 33 gives about 
16 groups/min, hex 66 gives 8 words/min 
--02E4 varies the tone 
~-02E1/02E2 points at the block of'characters to be sent; 
--0222 controls the character set; 1A for letters only. 
See Byte magazine, October 1976, page 36, for details of 
morse character storage. 
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CRAPS 


DESCRIPTION - 
SET ADDRESS 0200, THEN HOLD "GO" DOWN .. YOU'LL SEE: 
- 2 DICE "ROLLING" ON THE LEFT 


~ $10 BALANCE ON THE RIGHT 


BY JIM BUTTERFIELD 


LET "GO" GO ... THE DICE WILL STOP ROLLING, AND YOU'LL GET: 
- A WIN ON A TOTAL OF 7 OR 11; YOU'LL SEE YOUR DOLLAR 


BALANCE RISE; OR 


- A LOSS ON TOTALS OF 2,3, OR 12; YOUR DOLLAR BALANCE 


WILL DROP; OR 


- A "POINT - THE CENTER SEGMENTS WILL LIGHT WITH THE 


ROLL AND YOU MUST TRY TO ROLL THIS TOTAL AGAIN 
BEFORE YOU ROLL 7 - 


PUSH THE "GO! BUTTON ONLY ON THE FIRST ROLL. FOR SUBSEQUENT 
ROLLS, PUSH ANOTHER BUTTON. 


0200 
0201 
0204 
0207 
0209 
020B 
020D 
020F 
0211 
0213 
0215 
0217 
O21A 
021D 
O21F 
0224 
0223 
0225 
0227 
0229 
022B 
022C 
022E 
022F 
0230 
0233 
0235 
0237 
0239 
023B 
023D 
023F 
0241 
0243 


D8 
20 
20 
C5 
FO 


40 1F 
6A 1F 
4O 
79 
4o 
15 
WY 
06 
05 
10 
AQ 02 
o4 17 
CO 
KE 
05 
4 
02 
AE 
4E 


F5 


E7 iF 


START 


NOGO 


RNDLP 


RNDOV 


PLAY 


C#D 
Jr? 
JSR 
CMP 
BEQ 
STA 
EOR 
STA 
CMP 
BNE 
LDA 
JOR 
LDA 
LDX 
STX 
LDX 
CMP 
BCC 
SBC 
LSR 
DEX 
BPL 
TAX 
INX 
LDA 
LDY 
BEQ 
STX 
STA 
BNE 
STA 
LDA 
STA 
LDA 
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KEYIN 

GETKEY 

LAST 

LIGHT same key as before? 
LAST 

#$15 no-key test 
FLAG into flag 

#6 GO key? 

NOGO nope.. 

#$10 yes, $10 
DOBUX put in window 
TIMER random vaiue 
#$CO divide by 6 
DIVR 

#5 

DIVR divide.. 
RNDOV we tees 


DIVR .. digit 
DIVR 
RNDLP 
die 0-5 
die 1-6 


TABLE,X segment 

FLAG which die? 

PLAY second? 

DIE first, save it.. 
WINDX ..& segment 
LIGHT unconditional 
WINDOW+i show die.. 
WINDX »-e-and other 
WINDOW one 

BUX out of dough? 


0245 


0247 8 


0249 
O24B 
O24D 
O24F 
0251 
0253 
0255 
0257 
0259 
025B 
025D 
025F 
0260 
0263 
0265 
0267 
0269 
026B 
026D 
026F 
0270 
0273 
0275 
0277 
0279 
027B 
027D 
027E 
0280 
0281 
0284 
0286 
0288 
028A 
028¢C 
028E 
0291 
0293 
0295 
0297 
029A 
029D 
029F 
O2A1 
02A 

O2A 

02A6 


O2A9 
O2AB 
O2AD 
O2AF 


FO 3D 


02 


02 


LOSE 


FIRST 


WIN 


WINX 
LIGHT 


NOINC 


LITE 


PAWS 


DOBUX 


LDA 
BEQ 
BMI 
LDA 
CMP 
BEQ 
SED 
ADC 
CLD 
JSR 
LDA 
BEQ 
INC 
INC 
LDA 
STA 
LDY 
LDX 
LDA 
STA 
STyY 
INC 
BNE 
DEY 
DEX 
BPL 
JMP 


STA 
LDY 
sTY 
STY 


60 


LIGHT ..no bread 
CLC 

DIE add other die 
POINT get the point? 
WIN ».yup 

POINT point=zero... 
FIRST ..first roll 
#7 seven you lose 
LIGHT ..nope 

BUX 

LOSX nough dough? 
SED decimal add.. 
#0 neg one 


DOBUX put in window 
LIGHT unconditional 
WINDOW copy point 

WINDOW+2 


WINDOW+1 

WINDOW+3 

POINT 

z point value 
AyB-2,X ‘win’ table 
LIGHT ».SayS point 
LOSE --Says craps 
BUX -.Says win 


#$99 maximum bucks? 
WINX yes, skip add 

decimally add.. 
#1 » one 


DOBUX make segments 
FLAG still rolling? 
NOINC . nope; 
WINDOW ..yup, so.. 
WINDOW+1 ..roll em! 
#$7F 

PADD 

#$13 

#5 

WINDOW, X 

SAD 

SBD 

PAUSE 

PAWS 

DEY 


LITE 
START 


BUX 

#0 

POINT clear point 
WINDOW+2 ..and.. 


O2B1 
02B3 
O2B5 
02B8 
02B9 
O2BC 
O2BE 
O2BF 
0201 
0202 
0205 
0267 


0268 


84 hg STY WINDOW+3 display 
A8 HA TAY LSRA 

LA HA LA LSRA LSRA LSRA 
AA TAX 

BD E7? iF LDA TABLE ,X 

85 4A STA WINDOW+4 
98 TYA 

29 OF AND #$0F 

AA TAX 

BD E7 iF LDA TABLE, X 

85 4B STA WINDOW+5 
60 RTS 


FF FF 00 00 00 01 00 00 OO O1 FF (TAB) 


0200- D8 20 40 IF 20 6A “F C5 40 FO 79 85 40 49 15 85 
0210- 41 C9 06 DO 05 AJ 4) 20 AI 02 AD O04 17 A2 CO 86 
0220- 4E A2 05 C5 4E 90 02 E5 4E 46 4E CA 10 F5 AA E8 
0230- BD E7 1F A4 41 FO 06 86 42 85 43 DO 47 85 47 AS 
0240- 43 85 46 A5 44 FO 3D 8A 18 65 42 C5 45 FO 28 AG 
0250- 45 FO 12 C9 07 DO 2D AS 44 FO 05 18 F8 EQ 00 D8 
0260- 20 AQ 02 DO 1F AG 46 86 48 AG 47 86 49 85 45 AA 
0270- BD C6 02 FO OF 30 EO A5 44 C9 99 FO 04 F8 69 01 
0280- D8 20 AQ 02 A5 41 FO 04 E6 46 E6 47 AQ 7F 8D 41 
0290- 17 AO 13 A2 05 B5 46 8D 40 17 8C 42 17 E6 4F DO 
02A0- FC 88 88 CA 10 EF 4C 00 02 85 44 AO 00 84 45 84 
02B0- 48 84 49 A8 4A 4A 4A 4A AA BD E7 IF 85 4A 98 29 
02CO- OF AA BD E7 IF 85 4B 60 FF FF 00 00 00 01 00 00 
02D0- 00 01 FF 


Coding notes: CRAPS is a highly top-down program. 
The program always flows from START to LIGHT and 
back again with few breaks in sequence. The dice 
are randomized from TIMER (1704) and RNDLP contains 
a small division routine, dividing by 6; the 
remainder, randomly 0 to 5, gives the roll of 

one die. On the first roll of a run, we use 

the table at 02 C8 to analyze the total: in this 
table, FF means you lose and 01 means you win. 
FLAG is zero if you're not pushing any button. 
Segments for the display are stored in table 
WINDOW, 0046 to 004B. 
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QUEL oc 


DESCRIPTION - 

THIS IS A GAME FOR TWO PLAYERS. WHEN THE PROGRAM IS 
STARTED AT 0200, EACH PLAYER IS GIVEN TEN POINTS AS INDICATED 
ON OPPOSITE SIDES OF THE DISPLAY. THE CENTER DIGITS WILL 
BE BLANK. AFTER A RANDOM DELAY, THE CENTER DIGITS WILL LIGHT. 
THE FIRST PLAYER TO PRESS HIS KEY WILL INCREASE HIS SCORE 
BY ONE AND DECREASE HIS OPPONENT'S BY ONE. THE CENTER DIGITS 
WILL THEN BLANK FOR ANOTHER RANDOM DELAY. IF A PLAYER 
PRESSES HIS KEY WHILE THE CENTER DIGITS ARE BLANK, HIS SCORE 
WILL BE DECREASED BY ONE. WHEN ONE PLAYER REACHES ZERO THE 
GAME IS OVER AND MUST BE RESTARTED AT 0200. THE PLAYER TO 
THE LEFT USES KEY ZERO AND THE ONE ON THE RIGHT USES KEY 
SEVEN. 


0200 AQ 10 LDA #$10 INITIALIZE DIGITS 
0202 85 FQ STA 00F9 

0204 85 FB * STA 00FB 

0206 AD 44 17° RAND LDA 1744 GET "RANDOM" # 
0209 29 1F AND #$1F ~ NOT TOO BIG 

020B 09 01 ORA #$01 NOT TQS” SMALL 

020D 85 EE STA OOEE PUT IN DECREMENT LOC. 
020F AQ 00 LDA #$00 BLANK CENTER DIGITS 
0211 85 FA STA OOFA 

0213 20 7102 ODISP JSR LITE DISPLAY DIGITS 
0216 AD 07 17 LDA 1707 TIME UP? 

0219 FO 0D BEQ MORE NO 

021B AQ FF LDA #$FF 

021D 8D 07 17 STA 1707 START TIMER 

0220 C6 EE DEC 00EE FULL TIME UP? 

0222 10 04 BPL MORE NO, SKIP 

0224 AQ 36 LDA #$36 YES, CHANGE .. 
0226 85 FA STA OOFA CENTER DIGITS 

0228 D8 MORE CLD CLEAR FOR KEYBOARD 
0229 20 40 1F JSR KEYIN INIT. KEYBOARD 
022C 20 6A 1F JSR GET KEY KEY DEPRESSED? 
022F C9 15 CMP #$15 VALID KEY? 

0231 10 €0 BPL DISP NO 

0233 C907 CMP #$07 RIGHT KEY? 

0235 FO OE BEQ RITE YES 

0237 C9 00 CMP #500 LEFT KEY? 

0239 FO 02 BEQ LEFT YES 

023B DO D6 BNE DISP NOTA 0 ORA7 
023D A202 LEFT LDx *$02 INDEX FOR LEFT 
023F AS EE LDA O0EE TIME UP? 

0241 10 14 BPL LOS1 NO DECREASE LEFT ONE 
0243 30 06 BMI ADD1 YES, INCREASE LEFT 
0245 A200 RITE LDx #$00 INDEX FOR RIGHT 
0247 AS EE LDA OOEE CHECK TIME 

0249 10 0C BPL LOS1 NOPE, NOT YET 
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024B 
024C 
024D 
024F 
0251 
0253 
0254 
0256 
0257 
0258 
0259 
0258 
025D 
025F 
0261 
0264 
0267 
0269 
026B 
026E 
026F 


0271 
0273 
0276 
0278 
027A 
027D 
027F 
0282 
0285 
0287 
028A 


02 8B 
028C 
028D 
028E 
028F 
0290 
0292 
0295 
0296 
0298 
029B 
029C 
029E 
02A0 
02A3 
02A4 


F8 ADD1 SED 

18 CLC 

B5 FY LDA 00F9,X 

69 01 ADC #301 

95 FY STA 00F9,X 

8A TXA 

4g 02 EOR #$02 

DA TAX 

F8 LOS1 SED 

38 SEC 

BS F9 LDA 00F9,X 

E9 01 SBC #$01 

95 FQ STA 00F9,X 

FO 0A BEQ FIN 

20 71 02 WAIT JSR LITE 

20 40 IF JSR KEYIN 

DO F8 BNE WAIT 

FO 9B BEQ RAND 

20 7102 FIN SR LITE 

B8 LV 

50 FA BVC FIN 
HHSC =~ DISPLAY SUBROUTINE 

AQ 7F LITE LDA #$7F 

8D 41 17 STA SAODD 

A2 09 LDX #$09 

AS FB LDA 00FB 

20 8B 02 JSR 2HEX 

AS FA LDA 00FA 

20 4E IF JSR CONVX 

20 4E IF JSR CONVX 

AS F9 LDA 00F9 

20 8B 02 JSR 2HEX 

60 RTS 

He HEX CHARACTER 

A8 2HEX TAY 

LA LSR A 

4A LSR A 

LA LSRA 

LA LSRA 

FO 0A BEQ ZBLK 

20 48 IF JSR CONVD 

98 2NDC TYA 

29 OF AND #$0F 

20 48 1F JSR CONVD 

60 RTS 

AQ 80 ZBLK LDA #$80 

84 FC STY OOFC 

20 4E 1F JSR CONVX 

B8 CLV 

50 EF BYVC 2NDC 
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INCREASE SCORE .. 
BY ONE 


INDEX TO OTHER .. 
SIDE 


DECREASE SCORE .. 
BY ONE 


GO TO FIN IF ZERO 
WAIT FOR SWITCH .. 
TO BE RELEASED 


THEN START NEW DELAY 
FINISHED LOOP 


UNCOND. JUMP 


aaaserasas 
. 


Pd 
INIT, DIGIT # 


GET CENTER DIGITS 
CONVERT NONHEX CHAR. 
TWO OF THEM 


CONVERSION SUBROUTINE #332: 


SUBROUTINE TO CONVERT 
ONE WORD TO 2 HEX 
CHARACTERS 


SECOND CHARACTER 


BLANK LEADING ZEROS 
CONVERT NONHEX CHAR, 


UNCOND. JUMP 


FARMER BROWN 


by Jim Butterfield 


You are farmer Brown. You are growing a beautiful crop of corn 
But the following animals try to come and steal your corn: 


Ant 


ae ey 


Bird Cow 


ed. “hae 


Dog 


kee 
C) 


Elephant Fox 


As soon as you see one of these animals coming for your corn, 


you can scare it away by calling its name. 
with the first letter of the animal's name. 


Press the button 
So you would 


press A to shoo away an ant, B to shoo away a bird, and so on. 


If you press the right button, the animal will go back. 


If you 


press the wrong button, it will think you mean somebody else 
and keep coming for your corn. 
KIM will show 000 and the game is, over. 


And when all your corn is gone, 


The animal won't "shoo" unless it has completely entered the 


display. 


contents of location 026A. 


0200 A2 OD 
0202 86 6E 
020) A9 00 
0206 95 60 
0208 CA 

0209 10 FB 
020B A2 OB 
020D BS 60 
O20F DO 3B 
0211 CA 

0212 10 F9 
021) B6 6D 
0216 AS 6C 
0218 FO 09 
021A C6 6D 
021C C6 6E 
021E DO 03 
0220 hc 25 19 
0223 AD Oh 17 MORE 
0226 WA LA LA 
0229 hA ha 
022B C9 06 
022D 90 02 
022F 29 03 
0231 18 

0232 AA 

0233 69 OA 


START 


SLOOP 


TEST 
TLOOP 


MAKE 


LOX #$13 
STX CORN 
LDA #0 


STA WINDOW ,X 


DEX 


-BPL SLOOP 


LDX #11 


LDA WINNOW,X 


BNE CONTIN 
DEX 

BPL TLOOP 
INC GOT 
LDA FLAG 
BEQ MORE 
DEC GOT 
DEC CORN 
BNE MORE 
JMP DONE 
LDA TIMER 


ISRA ISRA LSRA 


LSRA LSRA 
CMP #6 
BCC MAKE 
AND #$03 
cle 

TAX 

ADC #$0A 
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Speed of the animals can be adjusted by changing the 


bushels of corn to start 
clear the window 


is window empty? 


no, keep going 


yes, make new animal 
did last animal get in? 


take away some corn 

any left? 

no, end of game 

random value.. 

e-to generate.. 
«new random animal 
6 types of animal 


animal type to X 
key type A to F 


0235 iP 6F 
0237 BD Ak 
023A 85 70 
023C A9 02 
023 85 71 
0240 AO 05 
0242 Bl 70 
02h 99 66 
0247 88 

0248 10 F8 
O2hA 8, 6C 
O2WC A2 OS 
02)E BS 66 
0250 DO 13 
0252 CA 

0253 10 F9 
0255 20 ho 
0258 20 6A 
025B CS 6F 
025D DO 06 
O25F AS 6C 
0261 10 02 
0263 E6 6C 
0265 C6 72 
0267 DO 1E 
0269 AY 20 
026B 85 72 
026D AS 6C 
026F 30 OD 
0271 A2 OA 
0273 BS 5A 
0275 95 5B 
0277 CA 

0278 DO F9 
027A 86 SA 
027C FO 09 
027E A2 FO 
0280 BS 6C 
0282 95 6B 
028) E8 

0285 30 F9 
0287 AI 7F 
0289 8D 1 
028C AO 13 
028E A2 05 
0290 BS 60 
0292 8D ho 
0295 8C 2 
0298 F6 73 
029A DO FC 
029c 88 88 
029F 10 EF 
O2Al C OB 


02 


00 


1F 
1F 


17 


17 
17 


CA 
02 


STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
DEY 
BPL 
STY 
LDX 
LDA 
BNE 
DEX 
BPL 


ALOOP 


CONTIN 
CLOOP 


NOKEY 


RLOOP LDA 
STA 
DEX 
BNE 
STX 
BEQ 
COMING LDX 


KEY 

INDEX ,X aint ‘picture! address 
POINL to indirect pointer 
#2 

POTNH 

AS six locations to move 
(POINL) ,¥ from 'picture' 

WINGS ,Y .-to 'wings' 


ALOOP 
FLAG 

#5 
WINGS ,X 
NOKEY 


flag FF = animal coming 
test: 
is animal out of 'wings'? 
no, ignore keyboard 


CLOOP 
KEYIN 
GETKEY 
KEY 
NOKEY 
FLAG 
NOKEY ® 
FLAG 
DELAY 
NOMOVE 
#$20 
DELAY 
FLAG 
COMING 
#10 
WINDOW-6 .X 
WINDOW-5 .X 


right anim al named? 
no, ignore key 


animal retreating? 
make animal retreat 
wait a while.. 
before moving animal 
speed control value 


move animal - which way? 
-- left 
. right 


RLOOP 
WINDOW-6 
NOMOVE 
#8 FO 


clear extreme left 
unconditional branch 
-16 


CMLOOP LDA WINDOW +12,X 


STA 

INK 

BMI 
NOMOVE LDA 
STA 
LDY 
LDX 
LDA 
STA 
STY 


LITE 


LITEX 
BNE 
DEY 
BPL 
JMP 


WINDOW +11,X 


CMLOOP 
#$7F 
PADD 
#$13 

#5 
WINDOW ,X 
SAD 

SBD 


light KIM display 


six display digits 


INC WAIT 


LITEX 
DEY DEX 
LITE 
TEST 


3 index and animal 'pictures' in hexadecimal form 
O2A, AA BO B6 BC C2 C8 08 00 00 00 00 00 O01 61 61 0 00 00 
0286 61517 01 00 00 63 58 hE 00 00 00 71 1D 1 1F 01 00 
02c8 6358 &C hO 00 00 
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FARMER BROWN.... 


Exercises: 


l. 


2. 


3. 


You can see that each animal occupies 6 memory locations, 
starting at O2AA (the Ant) - and the last location must always 
be zero. Can you make up your own animals? The letters may 
not fit exactly, but you can always invent names or use 

odd ones (you could make an Aardvark, a Burfle, a Cobra, and 
so on). 


The game might be more fun if the animals went faster after 
a while, so that sooner or later they would just zip by. 
The location that controls speed is at address 026A; 

the lower the number, the faster the animals will go. 

So if you could arrange to have the program decrease 

this number automatically once in a while, you'd get 

a nice speed-up feature. 


You can't "shoo" the animal until it's completely entered 
the display; but you can still catch it after it's partly 
left. The game would be harder - and maybe more fun - 

if you could only shoo it while it was completely in the 
display. Hint ~ testing location 005F (WINDOW-1) would 
tell you if an animal was on its way out. 


You'd have a "Target Practice" game if you made the animal 
disappear (instead of backing up) when you pressed the 
right button. With a little planning, you'll find that 
this is quite easy to do. 


aeeeeetee HEX DUMP = FARMER BROWN #38st3x 


B208- A2 BD 86 6E AY BB 95 68 CA 16 FB A2 BB BS 68 DO 


0216- 3B CA 10 F9 E6 6D AS 6C FO B9 C6 6D C6 6E DB B3 
0220- 4C 25 19 AD 64 17 4A 4A 4A 4A 4A C9 G6 9B B2 29 
62308- 03 18 AA 69 BA 85 6F BD A4 B2 B85 78 AD B2 BS 71 
0240- AG 65 BI 78 99 66 BB 88 18 FB 84 6C A2 BS BS 66 
0250- DO 13 CA 10 F9 20 40 1F 26 6A IF CS 6F DO B6 AS 
0260- 6C 18 82 E6 6C C6 72 DB 1E AD 28 BS 72 AS 6C 30 
0270- @D A2 BA BS SA 95 SB CA DO FO 86 SA FB BO A2 FB 
0286- BS 6C 95 6B E& 30 F9 AD 7F 8D 41 17 AB 13 A2 B5 
6296- BS 68 8D 40 17 8C 42 17 E6 73 DS FC 88 88 CA 1B 
O2AG- EF 4C @B 62 AA BB B6 BC C2 C8 BB BB BB BB BH BB 
O2B0- @1 61 61 486 6B 6G 61 51 47 B1 OB BB 63 58 AE BB 
b2CB- 8G OG 71 1D 41 1F 61 BB 63 58 4C 46 BB BB 
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H#1°LO 


DESCRIPTION - 


AN EASY GAME FOR ONE OR MORE PLAYERS. 
AT THE START, THE FIRST FOUR 


SECRET NUMBER FROM 01 TO 98. 


BY JIM BUTTERFIELD 


KIM CHOOSES A 


DIGITS SHOW THE HIGH AND LOW BOUNDS OF THE NUMBER - 99 HIGH 


AND 00 LOW, 


AS GUESSES ARE ENTERED - ENTER THE GUESS AND 


PRESS A FOR ATTEMPT ~— THE BOUNDS CHANGE AS YOU ARE NARROWING 


DOWN THE POSSIBILITIES. 


FOR EXAMPLE, GUESS 32 AND THE DISPLAY 


MIGHT CHANGE TO 32 00, MEANING THAT THE COMPUTER'S SECRET 


NUMBER IS BETWEEN THESE VALUES 


- AFTER EACH LEGAL GUESS, 


THE COMPUTER SHOWS THE NUMBER OF ATTEMPTS MADE SO FAR, 


ONE PLAYER GAME: TRY TO GET THE MYSTERY NUMBER IN SIX ATTEMPTS. 


MULTI PLAYER GAME: EACH PLAYER 


TRIES TO AVOID GUESSING THE 


MYSTERY NUMBER - THE CORRECT GUESSER LOSES AND IS "OUT", 


0200 F8 START SED 
0201 AS EO TOP LDA 
0203 38 SEC 
0204 69 00 ADC 
0206 A2 Ol LDX 
0208 C9 99 CMP 
020A DO 0) BNE 
020C 8A TXA 
020D 85 EO OVRO STA 
020F 20 40 1F JSR 
0212 DO ED BNE 
0214 D8 CLD 
0215 AY 99 LDA 
0217 85 FB STA 
0219 AY 00 LDA 
021B 85 FA STA 
021D A2 AO RSET LDX 
O21F 86 F9 NSET STX 
0221 86 El STX 
0223 20 1F 1F GUESS JSR 
0226 20 6A 1F JSR 
0229 C9 13 CMP 
022B FO D3 BEQ 
022D C5 E2 CMP 
022F FO F2 BEQ 
0231 85 E2 STA 
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RND generate random # 
01 to 98 

#0 

#1 

#$99 

OVRO 


overflow at 99 


RND 
KEYIN 
TOP 

initialize: 
#$99 hi 
POINTH 
#0 
POINTL and lo 
#SAO guess counter 
INH 
NGUESS 
SCANDS light display 
GETKEY test key 
#$13 go key? 
START 
LAST 
GUESS 
LAST 


same key? 


0233 
0235 
0237 
0239 
023A 
023B 
023C 
023D 
023F 
0240 
0242 
0243 
0245 
0247 
0249 
024B 
024D 
024F 
0251 
0253 
0255 
0257 
0259 
025B 
025D 
025F 
0261 
0263 
0264 
0266 
0268 


0200 
0210 
0220 
02 30 
0240 
0250 
0260 


F8 
FQ 
F2 
26 


FA 


AS 
1F 
86 
85 
FQ 
85 
A6 


LOOP 


EVAL 


OVR1 


OVR2 


E0 


El 
E2 
CA 
FB 
El 


weedy 


38 


CMP #S$0A ‘A' key? 
BEQ EVAL yes, evaluate guess 
BCS GUESS no key? 


ASL A roll character 
ASL A .-into.. 

ASL A position.. 

ASL A 

LDX #3 

ASL A ..then 

ROL INH --into 

DEX .-display 

BPL LOOP 

BMI GUESS 

LDA INH guess lower.. 
CMP RND --than number? 


BCC OVR1 yes, skip 

CMP POINTH no, check hi 
BCS GUESS out of range? 
STA POINTH 

LDX RND number lower... 
CPX INH .-than guess? 
BCC OVR2 yes, skip 

LDX POINTL no,check lo 
CPX INH 

BCS GUESS out of range? 
STA POINTL 

LDX NGUESS '‘'guess' number 
INX --pjJus } 


CPX #SAA past limit? 
BEQ RSET yes, reset 
BNE NSET 


69 00 A2 01 C9 99 DO 01 8A 85 ED 20 
D8 AJ 99 85 FB AQ 00 85 FA A2 AO 86 
1F 1F 20 6A 1F C9 13 FO D3 C5 E2 FO 
OA FO 10 BO EA OA 0A OA OA A2 03 OA 
FA 30 DC AS F9 C5 EO 90 06 C5 FB BO 
EO E4 F9 90 08 AB FA E4 FQ BO C4 85 
EO AA FO B5 DO BS 
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HORSERACE ~~ 


DESCRIPTION - 

THIS IS AN EIGHT LAP HORSE RACE AND YOU CAN BE THE 
JOCKEY AND WHIP YOUR HORSE TO GO FASTER. WARNING ... WHIP 
THE HORSE TOO MUCH AND HE PROBABLY POOPS OUT. THE PROGRAM 
STARTS AT 0200. 


HORSE TRACK WHIPPING BUTTON 


PRINCE CHARMING TOP PC 
COLORADO COWBOY MIDDLE Cc 
IRISH RAIR BOTTOM rr 
0200 D8 CLD ».~ INITIALIZATION... 
0201 A2 13 LDX #$13 
0203 BD D9 02 INIT LDA 02D9,X HORSES TO STARTING GATE 
0206 95 7C STA 007C,X 
0208 CA DEX 
0209 10 F8 BPL INIT 
020B AQ 7F DISP LDA #$7F ..LIGHT DISPLAY... 
020D 8D 41 17 STA 1741 
0210 AO 00 LDY #$00 
0212 A2 09 LDX #$09 
0214 B97C 00 LITE LDA 007C,Y 
0217. 84 FC STY OOFC 
0219 20 4E 1F JSR 1F4E OUTPUT DIGIT 
021C C8 INY 
021D CO 06 CPY #$06 SIX DIGITS DISPLAYED? 
021F 90 F3 BCC LITE NOT YET 
0221 20 3D 1F JSR 1F3D TURN OFF DIGITS 
0224 AS 8F LDA LAP CNT.FINISHED TOTAL LAPS? 
0226 30 E3 BMI DISP YES, FREEZE DISPLAY 
0228 A2 03 LOX #$03 
022A CA NEXT DEX NEXT HORSE 
022B 30 DE BMI DISP FINISHED 3 HORSES 
022D D6 86 DEC 0086,X DEC. CNT., HORSE X 
022F DO F9 BNE NEXT NOT ZERO, NEXT HORSE 
0231 86 99 STX 0099 SAVE HORE INDEX 
0233 A4 99 LDY 0099 AND PUT IN Y AS INDEX 
0235 B6 83 LDX 0083,Y DIGIT POS. OF HORSE IN X 
0237 B9 ED 02 LDA 02ED,Y MASK TO REMOVE HORSE 
023A 35 7C AND 007C,X GET RID OF HORSE 
023C 95 7C STA 007C,X RETURN REMAINING HORSES 
023E E8 INX GO TO NEXT DIGIT RIGHT 
023F 96 83 STX 0083,Y UPDATE HORSE DIGIT POS. 
Q241 B9 ED 02 LDA 02ED,Y GET MASK 
0244 49 FF EOR #$FF CHANGE TO AN INSERT MASK 
0246 15 7C ORA 007C,X PUT HORSE IN NEXT 
0248 95 7C STA 007C,X DIGIT RIGHT 
024A £0 05 CPX #$05 REACHED RIGHT SIDE? 
024C 30 2B BMI POOP NOT YET 
024E DO 06 BNE NLAP OFF RIGHT SIDE, CHANGE LAP 
0250 AS 8F LDA 008F CHECK LAP COUNTER 
0252 FO 1B BEQ LAST IF ZERO, LAST LAP 
0254 DO 23 BNE POOP 
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0256 
0258 
0259 
025B 
025D 
025F 
0260 
0262 
0264 
0266 
0268 
026A 
026C 
026D 
026F 
0271 
0273 
0275 
0277 
0279 
027C 
027E 
0281 
0283 
0285 
0288 
0288 
028D 
028F 
0292 
0294 
0296 
0298 
029A 
029C 
029F 
02A2 
02A4 
02A6 
02A9 


02AC 
02AD 
02AF 
02B1 
02B4 
02B5 
0287 
0289 
02BA 
02BC 
02BE 
02C0 
Q2C2 


89 
3D 


99 
FO 
01 


89 
9A 
C5 


01 
9A 


99 
8C 
8C 
86 
2A 


00 
IF 


02 


02 


02 


NLAP 
DOWN 


STOR 


LAST 


POOP 


NOPO 


FAST 


SKIP 


LDX 


#$02 


0083,X 
#$06 
0083, X 


#$06 
007C, xX 
0076,X 
#$80 
007C,X 


STOR 
00 8F 
POOP 
0081 
#$06 
0081 
0089, Y 
NOPO 


#$3C 
FAST 
0089,Y 
RAND 
#$38 
009A 
008C,Y 
FAST 
4538 
009A 
FAST 
#SFF 
0089,Y 
KEYIN 
¥SFF 
0099 
02F0,X 
SKIP 


009A 
RAND 


#$01 
009A 


0099 
008C,x 
008C, x 
0086, X 
NEXT 
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.»+CHANGE TO A NEW LAP 
SHIFT ALL HORSE DIGIT 
POSITIONS SIX PLACES 
DOWN... 


«eeALSO SHIFT DIGIT 
CONTENTS INTO STORAGE 
AREA AND CLEAR DISPLAY 
AREA... 


DEC, LAP COUNTER 

NOT LAST LAP, CONTINUE 
LAST LAP, PUT FINISH 
LINE IN LAST DIGIT 


HORSE Y POOP FLAG 

HORSE NOT POOPED 
...POOPED, BUT MAY 

BECOME UNPOOPED DEPENDING 
ON RANDOM NUMBER 


..sNOT POOPED, BUT MAY 
BECOME POOPED DEPENDING 
ON RANDOM NUMBER... 


IF POOPED, SET POOP 
FLAG TO "FF" 
GET KEY FROM KEYBOARD 

INIT. Y TO MAX 
HORSE INDEX IN X 
MASK CIS HORSE WHIPPED?) 
NO, NOT BEING WHIPPED 
WHIPPED, Y MADE SMALLER 
. -CHANGE SIGN IF POOPED 
EXC. OR WITH 00 OR FF 
SAVE SPEED UPDATE 
GET A RANDOM NUMBER 


.- LOWEST BIT OF # 
COMBINE WHIP UPDATE, 
RAND # CO OR 1) & CARRY 
HORSE INDEX IN X 

HORSES SPEED ADDED IN 
SAVE NEW SPEED 

ALSO IN WINDOW COUNTER 
LOOP 


02C5 38 RAND SEC 
02C6 AS 92 LDA 0092 FROM J. BUTTERFIELD 
02C8 65 95 ADC 0095 KIM USER NOTES *1 
02CA 65 96 ADC 0096 PAGE 4 
02cC 85 91 STA 0091 
02CE A2 04 LDX #$04 
02D0 B5 91 MOVE LDA 0091,xX 
02D2 95 92 STA 0092,X 
02D4 CA DEX 
02D5 10 F9 BPL MOVE 
02D7 +60 RTS 
MRXXX TABLES -— HORSERACE MOE 


02D8- 00/80/80/80/80/80/80/80 
Q02E0- FF/FF/FF/80/80/80/00/00/00/ 80/80/80/08/FE/BF/F7 
O02FO- 01/02/04 


0200 D8 A2 13 BD D9 02 95 7C CA 10 F8 AQ 7F 8D 41 17 
0210 AO 00 A2 09 B9 7C 00 84 FC 20 4E 1F C8 CO 06 90 
0220 F3 20 3D IF AS 8F 30 E3 A2 03 CA 30 DE D6 86 DO 
0230 F9 86 99 AY 99 Bb 83 BO ED 02 35 7C 95 7C E8 96 
0240 83 B9 ED 02 49 FF 15 7C 95 7C EO 05 30 2B DO 06 
0250 AS 8F FO 1B DO 23 A2 02 38 BS 83 E9 06 95 83 CA 
0260 10 F6 A2 06 BS 7C 95 76 AY 80 95 7C CA DO FS C6 
0270 8F DO 06 AS 81 09 06 85 81 B9 89 00 FO OA 20 C5 
0280 02 29 3C DO 1A 99 89 00 20 C5 02 29 38 85 9A BY 
0290 8C 00 30 0B 29 38 C5 9A BO 05 AY FF 99 89 00 20 
02A0 3D 1F AO FF A6é 99 3D FO 02 FO 01 88 98 55 89 85 
02B0 9A 20 C5 02 38 29 01 65 9A 18 AGB 99 75 8C 95 8C 
02CO0 95 86 4C 2A 02 38 AS 92 65 95 65 96 85 91 A2 04 
02D0 B5 91 95 92 CA 10 F9 60 00 80 80 80 80 80 80 80 
02E0 FF FF FF 80 80 80 00 00 00 80 80 80 08 FE BF F7 
02F0 01 02 04 
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KEY TRAIN 22 nc0rn 


Ever wish you could touch-type your KIM keypad like some people 
can type? It's not hard; all you need is practice. And what 
better teacher to drill you on key entry than the KIM system itself? 


Load this fully relocatable program anywhere. Start it up, and 
the display will show a random hexadecimal digit, ffgpm 0 to F. 
Hit the corresponding key, and the display will plank, and then 
present you with another random digit. Hit the Wrong key, and 
nothing will happen. 


The educational principle involved is called positive reinforcemént. 
That is, you're rewarded for doing the right thing, and ignore 

you do it wrong. A few minutes of practice a day. and you'll become 
a speed demon on the keyboard! 


0000 20 }O 1F START JSR KEYIN 


0003 DO FB BNE START key still depressed - blank 
0005 AD O4 17 LDA TIMER random value 

0008 4A kA LSRA LSRA wipe high order bits” 
OOOA kA LA LSRA LSRA 

000c 85 FF STA TEMP save the digit 

OOOE OA OA ASLA ASLA move back left 

0010 OA OA ASLA ASLA 

0012 05 FF ORA TEMP repeat the digit 
OO1l4 85 F9 STA INH put.. 

0016 85 FA STA POINTL --into.. 

0018 85 FB STA POINTH . display 
OO1A 20 1F 1F LIGHT JSR SCANDS light display 

001D 20 6A 1F JSR GETKEY test keys 

0020 CS FF CMP TEMP right key? 

0022 FO DC BEQ START yes, blank & rpeat 
002) DO Fy BNE LIGHT 


The random number used in this program is taken from the KIM timer. 

This timer runs continuously and might be anywhere between 00 and FF 

at the instant we push the button. We use the four left hand (high order, 
bits of the timer to produce the next digit. 


Be sure that KIM is not in decimal mode when you run this nrogram - 
set address OOF1 to 00 before starting. If you forget, you might 
find that the alphabetic keys (A to F) don't work right. 


Exercises: can you make the program clear decimal mode automatically? 
How about a counter to record the number of correct keystrokes you 
have made? That way, you could time yourself to see how many keys 
you can get right in 60 seconds, The count could be shown in the 

two right hand digits of the display. Do you think it should be 

in decimal or hexadecimal? 
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KEM NIM 00 


Here's a jumbo NIM that's good for all skill levels. 
Why? Because KIM matches wits with you - literally. 
Play a duffer's game and KIM will make lots of errors, 
too, Start winning a few - and KIM will move up to 
the master player level. 


Hit GO and several digits on the KIM display will light. 
Each lit digit represents a pile of objects you can 
pick from. Decide which pile you want#and enter 

its identity: A for the left-hand pile through to 

F for the right-hand pile. The pile wou have selected 
will start to flash on and off. Now enter the number 
of items you want to take from that pile. 


KIM will take its turn the same way - you'll see 
the pile selected begin to flash, and then some 
items will be taken away. After the computer moves, 
it’s your turn again. 


The winner is the player who takes the last object. 
When this happens, KIM will identify the winner. 
A new game can be started at any time by hitting GO. 


0200 20 40 1F START JSR KEYIN directional regs 


0203 20 6A 1F JSR GETKEY 

0206 C9 13 CMP #$13 GO key? 

0208 DO 3A BNE NOGO nope, skip 
020A AD O04 17 LDA TIMER get random nbr 
020D A2 02 LDX #2 split into 3 
O20F A8 SPLIT TAY save A 

0210 29 07 AND #7 extract 3 bits 
0212 FO 03 BEQ ZINCH unless zero.. 
0214 18 CLC ..add two 

0215 69 02 ADC #2 

0217 95 O4 ZINCH STA VALUE,X store pile val 
0219 98 TYA bring back rand 
021A 4A 4A 4A LSRA LSRA LSRA 

021D CA DEX 

O21E 10 EF BPL SPLIT 

0220 20 40 1F STALL JSR KEYIN wait for.. 

0223 DO FB BNE STALL ..key release 
0225 AD O04 17 LDA TIMER new random nbr 
0228 A2 02 LDX #2 split 3 ways 
022A A8 SPLAT TAY again 
022B 29 07 AND #7 3 bits 

022D 95 07 STA VALUE+3,X 

O022F 98 TYA 

0230 4A 4A 4A LSRA LSRA LSRA 

0233 CA DEX 

0234 10 F4 BPL SPLAT 

0236 85 O1 STA PILE pile zero 

0255: 35,02 STA MOVE it's your move 
023A A2 06 LDX #6 for each pile.. 
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023C 
023E 
0241 
0242 
O244 
0246 
0248 
O24A 
024¢ 
O24E 
0250 
0252 
0254 
0255 
0257 
0259 
025B 
025C 
025E 
0260 
0262 
0264 
0266 
0263 
026A 
026C 
026E 
0270 
0272 
0274 
0277 
0279 
027C 
O27E 
0231 
0233 


0285 
0287 
02393 
028B 
028D 
028F 
0292 
0294 
0296 
0293 
029B 
O29E 
02A0 
02A2 
O2A4 
02A5 
02A7 
O2A9 


03 


03 
03 
03 


17 


DRESS LDA VALUE-1,X ..change to 
JSR SEG . segments 
DEX 
BNE DRESS 
NOGO LDX MOVE whose move? 
BNE NOKEY computer's, skip 
CMP #$10 hex digit keyed? 
BCS NOKEY no, skip 
CMP #0 zero key? 
BEQ NOKEY yes, skip 
CMP #$0A alphabetic? 
BCC NUM no, numeric 
SEC change A-F... 
SBC #9 ..to 1-6 
LDX PILE pile already.. 
BNE NOKEY . selected? 
TAX 
LDA FLASHR ,X 
BEQ NOKEY nothing in pile? 
STX PILE OK, mark pile 
STA FLASHR store flash code 
BCS NOKEY unconditional 
NUM LDX PILE 
BEQ NOKEY no pile selected 
STA TEMP Save number 
LDA VALUE-1,X pile value 
CMP TEMP pile big enough? 
BCC NOKEY nope 
SBC TEMP yes, take out 
JSR SEG compute segments 
INC MOVE computer's move 
JSR SURVEY end of game? 
BNE NOKEY no, keep going 
JSR MESSAG yes, show messg 
STA WINDOW ''I LOSE" 
LSR IQ get smart: 
; all routines join here - display 
NOKEY LDX PILE 
LDA FLASHR flash pile 
EOR FLASHR,X 
STA FLASHR,X 
LDA #$7F 
STA PADD 
LIGHT LDY #13 
LDX #5 
LITE LDA WINDOW,X 
STA SAD 
STY SBD 
LITEX INC CUE 
BNE LITEX 
DEY DEY 
DEX 
BPL LITE 
INC WAIT 
BNE LIGHT 
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02AB 
O2AD 
O2AF 
O2B1 
0283 
O2B4 
02B6 
02B3 
O2BA 
O2BC 
O2BD 
O2BF 
0201 
0203 
02C5 
02C7 
02C9 
O2CB 
02CC 
02CE 
02D0 
02D2 
02D5 
02D7 
02D9 
O2DB 
02DD 
O2DF 
O2E1 
02E3 
O2E5 
02E7 
O2E9 
O2EB 
02ED 
O2F0 
O2F3 
O2F5 
02F8 
O2F9 
O2FB 
O2FD 
O2FF 
0301 
0302 


0305 
0307 
0309 
030B 
030D 
0310 
0312 
0313 
0315 


3B 


MERGE 


LOOP 


FOUND 
17 


MOVE 


TRY 


03 
03 
03 


KEEP 


02 
MESS AG 


03 MLOOP 


LDA 
STA 
LDX 
BEQ 
DEX 
BNE 
LDA 
LDX 
EOR 
DEX 
BPL 
STA 


LDA 
EOR 
CMP 
BCC 
DEX 
BNE 
BEQ 
LDY 
CPY 
BCS 
STA 
STX 
LDX 
LDA 
STA 
INC 
LDA 
CMP 
BCC 
LDX 
LDA 
JSR 
JSR 
BNE 
JSR 
SEC 
ROL 
LDA 
STA 
STA 
CLD 


LDA 
STA 
STA 
LDX 
LDA 
STA 
DEX 
BPL 
RTS 


#$FS 

WAIT 

MOVE whose move? 

EXIT not computer's 
first step? 

dee no, Skip stratgy 

0 
#5 merge all piles.. 


VALUE,X ..by EOR-ing them 
MERGE 
FLASHR Save EOR product 
#6 re-examine piles 
VALUE-1 ,X 
FLASHR 4 
VALUE-1,X 
FOUND ¥ 
LOOP 
MOVE 
IQ IQ high enuff? 
TIMER ..randomly.. 
MOVE no, move dumb 
TEMP amount 
PILE pile number 
PILE 
FLASHR,X flash mask 
FLASHR Flash... 
MOVE but don*t make 
MOVE ..the move till.. 
#$10 ..time has passed 
EXIT 
PILE time to move! 
TEMP 
SEG make move 
SURVEY end of game? 
KEEP nope, keep goin 
MESSAG '‘'U LOSE’ 

dummy up.. 
IQ .. the computer 
#0 
MOVE it's your move 


PILE un-flash 
START 

#0 

MOVE end of play 


PILE no flashing 

#6 move 7 digits 
DATA,X pick em up.. 
FLASHR,X ..put em down 


MLOOP 
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0316 AY 00 SURVEY LDA #0 


0318 85 OA STA FLASHR un-flash 

O31A A2 06 LDX #6 for all piles.. 
031C D5 03 REVUE CMP VALUE-1,X 

031E BO 06 BCS SMALL 

0320 B5 03 LDA VALUE-1,X 

0322 85 03 STA TEMP 

0324 86 01 STX PILE 

0326 CA SMALL DEX 

0327 DO F3 BNE REVUE 

0329 C6 03 DEC TEMP 

032B AS TAY test A 

032C 60 RTS 

032D 95 03 SEG STA VALUE-1 ,X store value 
032F FO 04 BEQ NIL blank digit 9° 
0331 A8 TAY 

0332 B9 E7 1F LDA TABLE, Y 

0335 95 OA NIL STA FLASHR,X segments to wndw 
0337 A9 00 LDA #0 

0339 60 RTS 


033A FF 06 BE OO BS BF ED F9 (DATA) 
0342 


0200 20 40 1F 20 6A 1F C9 13 DO 3A AD 04 17 A2 02 AB 
0210 29 07 FO 03 18 69 02 95 04 98 4A 4A 4A CA 10 EF 
0220 20 40 1F DO FB AD 04 17 A2 02 A8 29 07 95 07 98 
0230 4A 4A 4A CA 10 F4 85 01 85 02 A2 06 BS 03 20 2D 
0240 03 CA DO F8 A6 02 DO 3D C9 10 BO 39 C9 00 FO 35 
0250 C9 0A 90 12 38 E9 09 AB 01 DO 2A AA BS OA FO 25 
0260 86 01 85 0A BO 1F A6 01 FO 1B 85 03 BS 03 C5 03 
0270 90 13 E5 03 20 2D 03 E6 02 20 16 03 DO 07 20 05 
0280 03 85 0B 46 00 A6 01 AS OA 55 0A 95 0A AY 7F 8D 
0290 41 17 AO 13 A2 05 BS 0B 8D 40 17 8C 42 17 E6 11 
02A0 DO FC 88 88 CA 10 EF E6 12 DO E7 AY F8 85 12 Ab 
02B0 02 FO 4E CA DO 2B AQ 00 A2 05 55 04 CA 10 FB 85 
02CO 0A A2 06 BS 03 45 0A DS 03 90 05 CA DO F5 FO OB 
02D0 A4 00 CC 04 17 BO 04 85 03 86 01 A6 O1 BS OA 85 
02E0 0A E6 02 AS 02 C9 10 90 18 AB 01 AS 03 20 2D 03 
02FO0 20 16 03 DO 06 20 05 03 38 26 00 AY 00 85 02 85 
0300 01 D8 4C 00 02 AX 00 85 02 85 01 A2 06 BD 3B 03 
0310 95 0A CA 10 F8 60 AY 00 85 OA A2 06 DS 03 BO 06 
0320 BS 03 85 03 86 O1 CA DO F3 C6 03 A8 60 95 03 FO 
0330 04 A8 BY E7 1F 95 0A AJ 00 60 FF 06 BE 00 B8 BF 
0340 ED F9 
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KIM-TAC-TOE 


0100 
0103 


0106 
0108 
010A 
010C 


010D 
010F 


0118 
0120 
0128 


0130 
0132 
0134 
0136 
0138 
013A 
013C 
013D 
013F 


0140 
0142 
0144 
0146 


BY LEW EDWARDS 


DIRECTIONS - 

PLAY BEGINS WITH KIM MAKING THE FIRST PLAY WHEN 
"GO" IS PRESSED. THE SECOND THROUGH FOURTH DIGITS OF 
THE DISPLAY HOLD THE PATTERN WITH SQUARES NUMBERED AS: 


YOUR ENTRY WILL BE IMMEDIATE BUT 789 
KIM'S ACTION WILL BE DELAYED. YOUR 4 56 
PLAYS LIGHT STEADILY WHILE KIM'S 123 


A WINNING ROW BLINKS AND A DRAW BLINKS 

ON COMPLETION OF A GAME, THE "GO" KEY WILL 
IF YOU PREFER TO PLAY FIRST, PRESS THE 
"+" KEY INSTEAD, THE KIM HAS AN I.Q. LEVEL THAT CAN BE 
CHANGED BY PRESSING "PC'' AT GAMES END. YOU WILL SEE, 
"ODDS" AND KIM'S I.Q. DISPLAYED. THE I.Q. IS INITIALLY 
SET TO 75%, COC). CHANGE IT TO WHAT YOU WISH AND THEN 
PRESS "'DA'' TO RETURN TO THE DONE LOOP AND §JART A NEW 
GAME IN THE NORMAL MANNER. THE 1.Q. J TED UPWARD 
EACH TIME THE PLAYER WINS AND DOWNWARD EACH TIME KIM WINS. 
THE PROGRAM STARTS AT 0100. 


FLICKER. 
EVERY THING. 
START A NEW GAME. 


4c 10 03 JUMP STIQ JUMP TO START LOCATION 
EA EA EA NOP'S 
2828 SUBROUTINE "LOAD BLINK" 
AQ 20 LDA *$20 BLINK FLAG 
15 BF ORA SQST,X ADD IT TO THE... 
95 BF STA SQST,X INDEXED BYTE 
60 RTS 
EA EA NOP'S 


az arararas 
aveveveres 


TABLE - SEGMENTS Z2***< 
08/08/08/40/40/40/01/01/01 
searabaras TABLE - ROWS 


01/04/07/01/02/03/01/03 


ap arararas 
PAA TAT ATA 


02/05/08/04/05/06/05/05 
03/06/09/07/08/09/09/07 
*#% SUBROUTINE "GET PLAY" #3 

85 D9 GPLA STA TEMP SAVE THE ACCUMULATOR 
A2 09 LDX *$09 FOR TESTING 
AS Dg GPLP LDA TEMP GET IT BACK 
35 DB AND PS, X MASK THE STATUS BYTE 
24 D9 BIT TEMP CHECK FOR BIT ON 
DO 03 BNE OUT GOT IT — DONE 
CA DEX 
DO F5 BNE GPLP NOPE - KEEP TRYING 
60 OUT RTS SQUARE VALUE IN X 

0 = NO MATCH 

BARE SUBROUTINE "TEST AND INCREMENT! et-<e 
BS BF LDA SS,X 
DO 02 BNE OUT COUNT OPEN SQUARES 
F6 DB INC PS,X ONLY 
60 OUT RTS 
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0147 
0149 
014B 
014D 
0150 
0153 
0156 
0159 
015C 
O15F 
0162 
0163 
0165 


0200 
0202 
0204 
0206 
0207 
0209 
020B 
020D 
020F 
0212 
0214 
0216 
0218 
0219 
021B 
O21E 
021F 
0221 
0223 
0225 
0228 
022A 
022C 
022E 
022F 
0231 
0234 
0235 
0237 
0239 
023B 
023E 
0240 
0241 
0243 
0245 
0248 
024B 
024E 


95 BF 

AO 08 

AQ 00 

99 C8 00 
BE 17 01 
20 8A 03 
BE 1F 01 
20 8A 03 
BE 27 01 
20 8A 03 


DO £6 


AQ 00 
A2 1D 
95 B4 


DO FB 
AQ 05 
85 BB 
AO 04 
20 F2 03 
A2 04 
D5 BB 
FO F7 


DO FY 
99 BB 00 


DO EE 
E6 B6 
AO 04 
20 F2 03 
A2 05 
D5 B6 
FO F7 


DO F9 
99 B6 00 


DO EE 
AQ 03 
AO 08 
D9 C8 00 
FO 05 


DO F8 
FO 15 
BE 17 01 
20 06 01 
BE 1F 01 
20 06 01 


vb ld 


202% SUBROUTINE "UPDATE" 278% 
STA SS,X 


UPDA 


UPLP 


NEW 


INLP 


ELP1 


ELP2 


OLP 1 


OLP2 


PVAL 
TEST 
WNLP 


WIN 


LDY * 
LDA * 


*$08 
*$00 


STA RS,Y 
LDX SQ1,Y 


JSR 


RSADD 


LDX SQ2,Y 


JSR 
LDX 
JSR 
DEY 
BNE 
RTS 


LDA 
LDX 
STA 
DEX 
BNE 
LDA 
STA 
LDY 
JSR 
LDX 
CMP 
BEQ 
DEX 
BNE 
STA 
DEY 
BNE 
INC 
LDY 
JSR 
LDX 
CMP 
BEQ 
DEX 
BNE 
STA 
DEY 
BNE 
LDA 
LDY 
CMP 
BEQ 
DEY 
BNE 
BEQ 


RSADD 
RSADD 


UPLP 


#500 
#$1D 
00B4, X 


INLP 
#$05 
00BB 
#504 
RPLA 
#504 
REW, X 
ELP1 


ELP2 
REVN,Y 


ELP1 
ODEV 
#$04 
RPLA 
#$05 
RODD, X 
OLP1 


OLP2 
RODD, Y 


OLP1 
#$03 
#$08 
ROWS, Y 
WIN 


WNLP 
DRAW 


LDX SQ1,Y 
JSR BLNK 
LDX SQ2,Y 
JSR BLNK 
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FLAG THE SQUARE 


> 
CLEAR THE REGISTER 
THEN LOAD 


CURRENT STATUS 
VALUES 


LOOP TILL DONE 


CLEAR REGISTERS 


s 
INITALIZE ORDER OF.. 


NORE CALCULATED PLAYS 
CENTER -— FIXED ORDER 


SIDES IN RANDOM ORDER 


CORNERS-IN RANDOM ORDER 


TEST FOR 3 IN A ROW 
03=PLAYER WIN/OC=KIM WIN 
GAME WON-BLINK THE ROW 


NOT YET-CK NEXT ROW 
NO WINNER-CK FOR DRAW 


BLINK #1 


BLINK #2 


0251 
0254 
0257 
025A 
025C 
025E 
0260 
0262 
0263 
0265 
0267 
026A 
026B 
026D 
0270 
0272 
0274 
0276 
0279 
027B 
027D 
027F 
0280 
0282 
0284 
0286 
0289 
028B 
028D 
0290 
0292 
0294 
0296 
0299 
029B 
029E 
02A0 
02A3 
02A5 
02A8 
02AA 
02AD 
O2AF 
02B1 
02B4 
02B6 
02B8 
02BB 
02BD 
02C0 
02C2 
02C4 
02C6 


BE 27 01 
20 06 01 
4C FE 02 
A2 09 
AY C0 
35:\BE 


FO 
CA 
DO 
A2 
20 


OE 


F7 
09 
06 


FA 
15 
B5 
DB 
17 
A6 
FB 
0A 
F7 


BF 
F2 
40 
47 
DB 


4C 


01 


03 


03 


03 


03 
03 
03 
03 


01 


01 


01 


03 


DRAW 
OPEN 


NXBL 


TURN 


KEY 


WAIT 


IPLA 


LDX $Q3,Y 


JSR BLNK BLINK #3 
JUMP MTST CHECK THE WINNER 
LDX *$09 

LDA #$C0 OPEN SQUARE? 
AND DSPL, X 

BEQ TURN YES - CONTINUE GAME 
DEX NO - CK NEXT SQUARE 
BNE OPEN ALL DONE? 

LDX #$09 

JSR BLNK NO OPEN SQUARES 
DEX IT'S A DRAW 

BNE NXBL BLINK 'EM ALL 

JUMP. DONE GAME'S OVER 

INC PLA& COUNT THE PLAYS 

LDA MODE os A TURN? 

BNE WAIT 'S e 

JSR KEYS PLAYER'S 

BEQ KEY GET A KEY 

CMP #S0A OVER 9? 

BCS KEY GET ANOTHER 

TAX wOSE IT AS AN INDEX 
LDY DSPL,X SEE IF SQUARE'S OPEN 
BNE KEY NO, TRY AGAIN 

LDA #$40 YES, MARK IT FOR.. 
JSR UPDATE PLAYER 

INC MODE KIM'S NEXT 

BNE PVAL BUT FIRST CK FOR WIN 
JSR DISPLAY HOLD KIM BACK 

INC LPCNT A LITTLE 

BNE WAIT UPDATE AND.. 

LDA #$08 THEN CHECK THE.. 
JSR PSLD BOARD 

LDA #$02 

JSR PSLD 

LDA #504 

JSR PSLD 

LDA #$01 

JSR PSLD 

LDA #$C0 WINNING PLAY FOR KIM 
JSR GETPLA 

BNE PLAY YES - MAKE IT 

LDA #$30 2 IN A ROW FOR.. 
JSR GETPLA PLAYER 

BNE PLAY YES - BLOCK IT 

LDA #$08 POSSIBLE SQUEEZE 
JSR GETPLA PLAY FOR KIM 

BNE PLAY YES - DO IT 

JSR RAND HOW MUCH SMARTS? 
AND #$0F NEEDED? 

CMP IQ KIM'S I.Q. 

BCS DUMB TOO LOW - BAD MOVES 
LDY PLAC SMART 


79 


02C8 
02CA 
02CC 
02CE 
02D0 
02D2 
02D4 
02D6 
02D8 
02DA 
02DC 
02DF 
02E1 
02E3 
02E5 
02E7 
02E9 
02EB 
02ED 
O02EE 
02F0 
Q2F2 
02F4 
02F7 
02F9 
02FB 
O2FE 
0300 
0302 
0304 
0306 
0308 
030A 
030C 
030E 
0310 
0312 
0314 
0315 
0318 
Q31A 
031C 
O31E 
031F 
0321 
0323 
0325 
0327 
0329 
032B 
032D 
032F 
0331 
0333 
0336 
0339 


30 01 


47 01 


39 02 


CPY 
BNE 
AND 
BNE 
FOUR CPY 
BNE 
BIT 
BMI 
BVS 
SPLA LDA 
JSR 
BNE 
PLAC LDY 
BNE 
DUMB LDY 
TPLA LDX 
LDA 
BEQ 
DEY 
BNE 
BEQ 
PLAY LDA 
JSR 
DEC 
LDA 
UMP 
MTST LDA 
BNE 
1QDN DEC 
BPL 
IQUP INC 
LDA 
CMP 
BCC 
BCS DONE 
STIQ LDA 
IQST STA 
CLD 
DONE JSR 
LDY 
CMP 
BEQ 
DEY 
CMP 
BEQ 


BNE 
CHIQ LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
JSR 
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#$01 
FOUR 
#501 
TPLA 
#$04 
SPLA 
SQST+5 
DUMB 
PLAC 
#$02 
GETPLA 
PLAY 
*$05 
TPLA 
#$09 
RPLA,Y 
DISP, X 
PLAY 


RPLA 
DUMB 
#$ 80 
UPDATE 
MODE 
#50C 
TEST 
MODE 
1QUP 
IQ 
DONE 
1Q 
#510 
IQ 
TQON 


#50C 
1Q 


KEYS 
«S01 
#$13 
SEMO 


#512 
SEMO 
#$ 14 
DONE 
#50D 
POINTH 
#5D5 
POINTL 
IQ 

INH 
SCANDS 
KEYPR 
GETKEY 


1ST PLAY? 

NO 

YES 

1/2 TIME PLAY A CORNER 
4TH PLAY? 

NO, SKIP 

YES, CK WHO HAS CENTER 
KIM - PLAY A SIDE 
PLAYER-PLAY A CORNER 
CAN PLAYER MAKE A.. 
SQUEEZE PLAY? 

YES - BLOCK IT 


START WITH THE CENTER 
START WITH THE SIDES 
USE THE RANDOM PLAY 
TABLE - OPENeSQUARE? 
FOUND ONE - PLAY IT 
NO, TRY NEXT ONE 
NOT YET 
START OVER 
MARK THE. .« 

pOQUARE FOR KIM 
PLAYEQ'S TURN NEXT 
FIRST, DID KIM WIN? 


WHO WON? 
PLAYER, UP KIM'S 1.Q. 
KIM'S TOO SMART 
LOWER THE 1.Q. 

NOT BELOW ZERO 

NOT OVER 10 HEX 


START WITH 75% 

1.Q. 

DISPLAY RESULTS-GET KEY 
START WITH KIM 

IF "GO" KEY PRESSED 


START WITH PLAYER... 
IF "+" KEY PRESSED 


"PC'' PRESSED - SKIP 
NO KEY - LOOP 


SHOW "ODDS" 


AND 1.Q. 


ON DISPLAY 


033c 6cg 1 CMP #$11 NDA" KEY PRESSED 


033E FO D5 BEQ DONE RETURN TO ''DONE'’ LOOP 
0340 BO ES BCS CHIQ KEEP TRYING IF OVER "AD" 
0342 85 D2 STA 1Q UNER 11CHEX), CHANGE 
0344 90 €E1 BCC CHIQ IQ TO KEY #, NO KEY AGAIN 
0346 84 DB SEMO STY MODE SET STARTING PLAY 

0348 4C 00 02 JMP NEW ANOTHER GAM 

034B EA NOP 


034C AQ 7F DISPLAY LDA #$7F 


O34E 8D 41 17 STA PADD OPEN DISPLAY CHANELS 
0351 £6 DA INC RATE 
0353 AO 00 LDY #500 
0355 A2 0B DIGX LDX #$0B INDEX DIGIT 
0357. B9 CO 00 SEGY LDA SQST,Y GET CONTROL BYTE 
035A 85 FC STA SAVE SAVE IT 
035C FO 14 BEQ OFF OPEN SQUARE 
035E 29 20 AND #$20 BLINK FLAG 
0360 FO 04 BEQ FLIC NOT ON - SKIP®BLINK 
0362 24 DA BIT RATE 
0364 70 0C BVS OFF ALTERNATE ON-OFF 
0366 AS FC FLIC LDA SAVE 
0368 29 40 AND #$40 STRADY FLAG 
036A DO 0A BNE ON ON - SKIP FLICKER 
036C AS DA LDA RATE 
036E 29 08 AND #$08 FLICRPR RATE 
0370 FO 04 BEQ ON ON 
0372 AQ 00 OFF LDA #500 OFF 
0374 FO 03 BEQ DIGT 
0376 B9 OF 01 ON LDA SEGS ,Y 
0379 84 FC DIGT STY SAVE SAVE FROM LOSS IN SUBR. 
037B 20 4E IF JSR CONVD+6 DISPLAY A SEGMENT 
037E C8 INY 
037F CO 09 CPY #$09 LAST SQUARE 
0381 FO 06 BEQ LAST YES - DONE 
0383 £011 CPX #$11 NO, LAST DIGIT? 
0385 FO CE BNE DIGX YES - REPEAT DIGITS 
0387. DOCE BNE SEGY NO - NEXT DIGIT 
0389 60 LAST RTS 

PLP Pipi aid SUBROUTINE MRS ADD" PLP Pi Pis 
038A BS BF RSA LDA SQST,X 
038C 85 DY STA TEMP 
038E 24 D9 BIT TEMP WHO'S SQUARE? 
0390 30 06 BMI KIM KIM'S 
0392 70 08 BVS PLYR PLAYER'S 
0394 AQ 00 OPEN LDA #$00 OPEN SQUARE VALUE 
0396 FO 06 BEQ ADD 
0398 AQ O04 KIM LDA #504 KIM VALUE 
039A DO 02 BNE ADD 
039C AQ Ol PLYR LDA #$01 PLAYER VALUE 
039E 18 ADD CLC 
039F 79 C8 00 ADC RS,Y ADD TO ROW STATUS 
03A2 99 C8 00 STA RS,Y BYTE 
03A5 60 RTS 


81 


03A6 
03A9 
03AC 
03AE 
03B1 
03B2 


03B3 
03B4 
03B5 
03B7 
03B9 
03BB 
03BD 
03BF 
03C1 
03C3 
03C4 
03C6 
03C7 


03C8 
03CA 
03CC 
03CE 
03D0 
03D1 
03D3 
03D5 
03D7 
03DA 
03DC 
03DF 
03E2 
03E5 
03E8 
03EB 
O3EE 
O3EF 
03F1 


03F2 
03F5 
03F7 
03F9 
03FB 
03FD 
O3FF 


Seapanares 
ATTA TAL AD 


SUBROUTINE "KEYS" 


apap erases 
eveusreuee 


20 4C 03 BACK JSR DISPLAY DISPLAY LOOP 
20 40 IF JSR ANYK UNLESS 
FO F8 BEQ BACK A KEY IS PRESSED 
20 6A 1F JSR KEYS THEN GET A NUMBER 
AA TAX RECOVER THE FLAGS 
60 RTS 
PLPiPlPioid SUBROUT INE "RANDOM"! weetstetet 
D8 CLD 
38 SEC GENERATES A.. 
AQ D4 LDA R+1 RANDOM NUMBER 
65 D7 ADC R+4 CTHANKS TO J. BUTTERFIELD) 
65 D8 ADC R+5 
85 D3 STA R 
A2 04 LDX *$04 
B5 D3 ROLL LDA R,X 
95 D4 STA R+1,X 
CA DEX 
10 F9 BPL ROLL 
60 RTS 
EA NOP 
#28 = SUBROUTINE "PS LOAD! = #3 
85 D9 PSL STA TEMP 
A2 09 LDX *$09 
16 DB XLP ASL PS,X SHIFT PREVIOUS DATA 
16 DB ASL PS,X OUT OF THE WAY 
CA DEX 
DO FQ BNE XLP 
AO 08 LDY *$08 
AS D9 YLP LDA TEMP 
D9 C8 00 CMP RS,Y COUNT THE TIMES AN OPEN.. 
DO 12 BNE NOCT SQUARE FITS THE.. 
BE 17 01 LDX SQ1,Y TEST PARAMETER 
20 40 01 JSR T+l 
BE 1F 01 LDX SQ2,Y 
20 40 01 JSR T+1 
BE 27 01 LDX SQ3,Y 
20 40 01 JSR T+1 
88 NOCT DEY 
DO £4 BNE YLP 
60 RTS 
Pip ib pits SUBROUTINE NRANDOM PLAYS" Pippi bier 
20 B3 03 RPLA JSR RAND GET RANDOM NUMBER 
29 OE AND *S0E 0 - E CEVEN) 
05 B6 ORA ODEV MAKE IT ODD IF 01 
FO F7 BEQ RPLA NO ZEROS 
C9 0A CMP *SOA 
BO F3 BCS RPLA LOOP TILL DONE 
60 RTS 
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0100 
0110 
0120 
0130 
0140 
0150 
0160 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
02A0 
0280 
02C0 
02D0 
02E0 
02F0 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
03A0 
0380 
03C0 
03D0 
03E0 
03F0 


SP aenrase 


4C 10 03 
08 08 40 
02 05 08 
85 D9 A2 
B5 BF DO 
BE 17 01 
8A 03 88 
AQ 00 A2 
F2 03 A2 
EE E6 B6 


CA DO FY 
40 01 BE 
E4 60 20 


00B6 
00C0-C8 
00.C9-D0 
00D1 
00D2 
00D3-D8 
00D9 
O0DA 
00DB 
00DC-E4 
OOFC 


ra 


EA EA 
40 40 
04 05 
09 AS 
02 F6 
20 8A 
DO E6 


ov ovivas 


PLAY MODE 


aes 
wee 


AQ 
01 
05 
35 
60 
BE 


OE 


KIM TAC TOE 


05 


15 
01 
03 
24 


BF 


01 


FB 
CA 
A2 
03 
20 
FE 
06 
03 
01 


B6 


FO 


F7 


apases asus 
evavev ever 


ZERO PAGE USAGE 
ODD/EVEN MODIFIER 
PRESTORED RANDOM PLAYS 
ROWS STATUS 
DELAY TIMER 
EO: 
RANDOM NUMBER REGISTERS 
TEMPORARY STORAGE 
FLICKER / BLINK RATE 


PLAY STATUS 
SAVE 
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aan 
PLT ATA TATA 


LUNAR LANDER «.... 


Description - 

The program starts at 0200. When started, you will find 
yourself at 4500 feet and falling. The thrust on your machine 
is set to low; so you'll pick up speed due to the force of 
gravity. 

You can look at your fuel at any time by pressing the 
"F" button. Your fuel (initially 800 pounds) will be shown 
in the first four digits of the KIM display. & 

The last two digits of the KIM display always show 
your rate of descent or ascent. "4" restores altitude. 

Set your thrust by pressing buttons 1 through 9. 
Warning: button 0 tums your motor off, and it will not 
reignite! A thrust of 1, minimum, burns very little fuel; 
but gravity will be pulling your craft down faster and 
faster. A thrust of 9, maximum, overcomes gravity and’ 
reduces your rate of descent very sharply. A thrust of 5 
exactly counterbalances gravity; you will continue to descend 
(or ascend) at a constant rate. If you run out of fuel, 
your thrust controls will become inoperative. 

A safe landing is considered to be one where you land 
at a descent rate of 5 or less. After you land, your thrust 
controls will be inoperative, since the motor is automatically 
turned off; but you can still press "F" to look at your fuel.. 
Pressing "GO" starts a new flight. 


Suggestions for a safe flight: 

(1) Conserve fuel at the beginning by pressing 1. You 
will begin to pick up speed downwards. 

(2) When your rate of descent gets up to the 90's, you're 
falling fast enough. Press 5 to steady the rate. 

(3) When your altitude reaches about 1500 feet, you'll 
need'to slow down. Press 9 and slow down fast. 

(4) When your rate of descent has dropped to 15 to 20, 
steady the craft by pressing 5 or 6. Now you're on 


your own. 
3; Main routine ~ initialization 

0200 A2 OD GO LDX #13 fourteen bytes 

0202 BD CC 02 LP1 LDA INIT,X 

0205 95 D5 STA ALT,X 

0207 CA DEX 

0208 10 F3 BPL LPL 


update height & velocity 
O20A A2 05 CALC LDX #5 
020C AO O1 RECAL LDY #1 
O20E F3 SED 
O20F 13 CLC 
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0210 
0212 
0214 
0216 


0217 2 


0213 
O21A 
021C 
O21E 
0220 
0222 
0224 
0225 
0227 
0229 
022B 


022D ' 


022F 
0231 
0233 
0235 
0236 
0233 
0239 
023B 
023D 
023F 
0241 
0243 
0245 
0247 
0243 
O24A 
024C 
O24E 
0250 
0252 
0253 


0255 
0252 
025A 
025C 
025E 
0260 
0262 
0264 
0266 
0263 
026A 
026B 
026D 
026F 
0271 


BD 02 
DE 
DF 
FO 
E1 
20 
9C 
A4 
FE 


5A 
D9 


D3 
00 


DIGIT LDA 
ADC 
STA 
DEX 
DEY 
BFL 
LDA 
BFL 
LDA 
INCR ADC 
STA 
DEX 
BPL 
LDA 
BFL 
LDA 
STA 
LDX 
DD STA 
STA 
DEX 
BPL 
UP SEC 
LDA 
SBC 
STA 
LDX 
LP2 LDA 
SBC 
STA 
DEX 
BFL 
BCS 
LDA 


ALT ,X 
ALT+2,X add each digit 
ALT,X 


DIGIT next digit 
ALT+3,X hi-order .. zero.. 
INCR or .. 
#$99 

ALT,X 

ALT,X 


RECAL do next addition 
ALT 

UP still flying? 

#0 nope, turn off 


#2 i 


update fuel 

FUEL+2 

THRUST 

FUELt2 

#1 two more digits to go 
FUEL,X 

# Ow 

FUEL,X 


LFP2 
TANK still got fuel? 
#0 nope, kill motor 


LDX #3 


LF3 STA 
DEX 
BPL 
; show alt 
JSR 
TANK LDA 
LDX 
ORA 
LDY 
BEQ 
GOLINK BEQ 
CLINK BEQ 
LDX 
LDY 
CLC 
LDA 
ADC 
LDA 
ADC 


THRUST ,X 


LP3 

» fuel, or messages 
THRSET 

FUEL fuel into regstrs 
FUEL+1 

#$FO plus F flag 
MODE 

ST 

GO 

CALC 

#$FE 

#B5A 

VEL+1 

#5 

VEL 

#0 
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0273 BO O04 BCS GOOD 


0275 A2 AD LDX hae 
0277 AO DE LDY #$DE 
0279 93 GOOD TYA 
027A AY E2 LDY DOWN 
027C FO O04 BEQ ST 
O27E A5 D5 LDA ALT 
0220 A6é D6 LDX ALT+1 
0232 35 FB ST STA FOINTH 
02324 36 FA STX POINTL 
show rate of ascent/descnt as absolute 
0236 A5 D9 LDA VEL+1 
0232 A6 DR LDX VEL up or down? 
022A 10 05 BPL FLY ..up, we're OK 
022°C 33 SEC 
023D A9 00 LDA #0 
022F E5 D9 SBC VEL+1 
0291 35 F9 FLY STA INH 
0293 A9 02 LDA #2 loop twice thru display 
0295 35 E3 STA DECK » a 
0297 D8 FLITE CLD display & yey test 
0293 20 1F 1F JSR SCANDS light ‘em up 
029B 20 6A 1F JSR GETKEY check keys 
029E C9 13 CMP #$13 GO key? 
02A0 FO CO BEQ GOLINK -.yes 
02A2 BO 03 BCS NOKEY ..if no key 
O2A4 2Q@@AD 02 JSR DOKEY 
02A7 C6 E3 NOKEY DEC DECK 
02A9 DO ED BNE FLITE 
O2AB FO B7 BEQ CLINK to CALC 


; Subroutine to test keys 
O2AD C9 OA DOKEY CMP #$0A test numeric 


O2AF 90 05 BCC .Q{UMBER 

02B1 49 OF EOR f$0F Fuel F gives O flag 
02B3 35 El STA MODE 

02B5 60 RETRN RTS 

02B6 AA NUMBER TAX 

02B7 A5 DD LDA THRUST test; is motor off% 
O2B9 FO FA BEQ RETRN yes, ignore key 
O2BB 36 DD STX THRUST no, set thrust 
O2BD ;calculate accel as thrust minus 5 
O2BD A5 DD THRSET LDA THRUST 

O2BF 33 SEC 

02C0 F3 SED 

0201 E9 05 SBC #5 

02C3 35 DC STA TH2+1 

02C5 AY 00 LDA #0 

02C7 E9 00 SBC #0 

02C9 35 DB STA TH2 

02CB 60 RTS 


: initial values 
o2cc 45 01 00 INIT .BYTE $45,1,0 altitude 
O2CF 99 31 00 .BYTE $99,$31,0 rate of ascent 
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02D2 99 97 - BYTE $99,397 acceleration 


O2D4 02 .BYTE 2 thrust 
02D5 08 00 00 .BYTE 8,0,0 fuel 
O2D8 01 - BYTE 1 display mode 
02D9 01 BYTE 1 in flight/landed 
end 
0OD5 ALT K=E+3 
O0OD8 VEL H=H+3 
OODB TH2 #=¥-4+2 
OODD THRUST *=#+1 
OODE FUEL  *=*+3 
OOEF1 MODE *=*+1 
OOE2 DOWN *%*=*+1 
00E3 DECK *=*+1 
; linkages to KIM monitor 
SCANDS firs 
GETKEY =$1F6A 
POINTH =$FB = 
POINTL =$FA 
INH =$F9 & 


keke Hex Dump - Lunar Lander ***** 


0200 A2 0D BD CC 02 95 DS CA 10 F8 A2 05 AO 01 F8 18 

y 0210 B5 DS 75 D7 95 D5 CA 88 10 F6 B5 D8 10 02 AI 99 
0220 75 D5 95 D5 CA 10 E5 A5 D5 10 OD AQ 00 85 E2 A2 
0230 02 95 DS 95 DB CA 10 F9 38 AS EO E5 DD 85 EO A2 
0240 01 BS DE E9 00 95 DE CA 10 F7 BO OC AQ 00 A2 03 
0250 95 DD CA 10 FB 20 BD 02 AS DE A6 DF 09 FO A& El 
0260 FO 20 FO FO A4& A2 FE AO 5A 18 AS DI 69 O05 AS 
0270 D8 69 00 04 A2 AD AO DE 98 A4 E2 FO 04 AS DS 
0280 A6 D6 85 FB 86 FA AS D9 AG D8 10 05 38 AJ 00 ES 
0290 D9 85 F9 AQ 02 85 E3 D8 20 IF 1F 20 6A 1F C9 13 
02A0 FO CO BO 03 20 AD 02 C6 E3 DO ED FO B7 C9 0A 90 
02B0 05 49 OF 85 El 60 AA AS DD FO FA 86 DD AS DD 38 
02CO F8 E9 05 85 DC AX 00 E9 00 85 DB 60 45 01 00 99 
02D0 81 00 99 97 02 08 00 00 0101 


ACKNOWLEDGEMENTS: Ted Beach suggested the addition of 
the F flag when displaying fuel. Chuck Eaton spotted 
the cause of an erratic bug in the original keyboard 
input subroutine. Thanks to both. 
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MU CTL = MAZE «0:00 


Description: Find your way out of the maze. You are the 
flashing light in the centre of the display. As you move 

up (key 9), down (1), left (4) or right (6), KIM will keep 
you in the central display; you'll see the walls of the maze 
moving by as you travel. Like walking through a real maze, 
you'll only see a small part of the maze as you pass through. 
If you can get out, you'll find yourself in a large open 
area; that means you've won. Press GO at any time for 


a new maze. Program starts at address 0200. 
Listing: 
0200 E6 DO START INC RND random seed 
0202 20 40 1F JSR KEYIN 
0205 DO F9 BNE START 
0207 A2 07 LDX #7 patch the maze 
0209 26 DO LP1l ROL RND Sin 8 places 
020B 90 17 BCC NXUP 
020D BC 08 03 LDY PLACE,X 
0210 BD 10 03 LDA POINT1,X 
0213 59 DE 02 EOR MAZE,Y 
0216 99 DE 02 STA MAZE,Y 
0219 C8 INW 
021A C8 INY 
o2%B BD 18 03 LDA POINT2,X 
O21E 59 DE 02 EOR MAZE,Y 
0221 99 DE 02 STA MAZE,Y 
0224 CA NXUP DEX 
0225 10 E2 BPL LPl 
0227 A2 02 LDX #2 
0229 D8 CLD 
022A 30 D4 SLINK BMI START 
022C BD DB 02 SETUP LDA INIT,X 
022F 95 D2 WwW STA MZPT,X 
0231 CA DEX 3 values from INIT 
0232 10 F8 BPL SETUP 
; pick out specific part of maze 
0234 AO OB MAP LDY #11 
0236 Bl D2 GETMOR LDA (MZPT) ,Y 6 rows x 2 
0238 99 D8 00 STA WORK,Y 
023B 88 DEY 
023C 10 F8 BPL GETMOR 
; shift for vertical position 
023E A2 OA LDX #10 for each of 6 rows 
0240 A4 D4 NXDIG LDY POSIT .-shift Y positions 
0242 AO FF LDA #SFF filling with 'walls' 
0244 38 REROL SEC »--on both sides 
0245 36 D9 ROL WORK+1,X 
0247 36 D8 ROL WORK,X roll ‘em 
0249 2A ROL A 
024A 88 DEY 
024B DO F7 BNE REROL 
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024D 29 
024F 
0250 
0253 
0255 
0256 
0257 


0259 
025B 
025D 
025F 
0261 
0263 
0265 


0267 
0269 
026C 
026E 
0270 
0272 
0275 
0278 
027A 
027C 
027D0.C8 
027E 
027F 
0280 


0282 
0285 
0288 
028A 
028C 


028E 
0290 
0293 
0295 
0296 
0298 
029A 
029B 
029D 
02A0 
02A3 
02A6 


02A8 
02A9 
02AB 
02AD 


07 


C6 
D8 


E7 


D5 
OA 
05 


DE 
40 
DE 


7F 


09 
OA 
D8 
40 
42 


FC 


EE 


40 
6A 
D7 
CD 
D7 


04 
CE 


F8 
BC 


8D 
D3 
D8 


Bl 
04 


D4 
85 


02 


17 


ah 
17 


1F 
1F 


02 


02 
00 
02 


Calculate segments 


AND #7 

TAY 

LDA TAB1,Y 
STA WORK ,X 
DEX 

DEX 

BPL NXDIG 
flasher 
DEC PLUG 
BPL MUG 
LDA #5 

STA PLUG 
LDA WORK+6 
EOR #S40 
STA WORK+6 
3; light display 
MUG LDA #S7F 
STA SADD 
LDY #$09 
LDX #10 
LDA WORK,X 
STA SAD 
.STY SBD 
DEC STALL 
BNE STl 

IN 

IN 

DEX 

DEX 

BPL SHOW 


7; test 
LIGHT 


SHOW 


STl 


7; test 
JSR KEYIN 
JSR GETKEY 
CMP SOK 
BEQ LIGHT 
STA SOK 
which key 
LDX #4 
CMP 
BEQ 
DEX 
BPL 
BMI 
DEX 
BMI 
LDY 
LDA 
AND 
BNE 
¢ move 

DEX 

BPL 

DEC 
MLINK BNE 


89 


3; test 


SCAN 
FOUND 


SCAN 
LIGHT 
FOUND 


WORK,¥ 
TAB4 ,X 
LIGHT 


NOTUP 
POSIT 
MAP 


3 bits to segment 
..-stored 


time out? 
-.no 
-.yes, reset 
eeand.. 

ve flL psx 

. flasher 


open the gate 


tiptoe thru.. 
..the segments 


.- pausing 


new key depression 


set dir reg 


same as last? 


5 items in table 
TAB2 ,X 


SLINK go key? 
TAB3,X 


upward move 
l.o.n.g branch 


O2AF DO 4 NOTUP BNE SIDEWY 


02Bl E6 D4 INC POSIT downward move 
02B3 DO F8 BNE MLINK 

02B5 CA SIDEWY DEX 

02B6 DO 06 BNE LEFT 

02B8 C6 D2 RIGHT DEC MZPT right move 
O2BA C6 D2 DEC MZPT 

Q02BC DO EF BNE MLINK 

O2BE E6 D2 LEFT INC MZPT left move 
02CO E6 D2 INC MZPT 

02C2 DO E9 BNE MLINK 

02c4 FO F2 BEQ RIGHT 


: tables follow in Hex format 

02C6 TAB1 00 08 40 48 01 09 41 49 

O2CE TAB2 13 09 01 06 04 

02D3 TAB3 06 06 04 08 

02D7 TAB4 01 08 40 40 

02DB INIT DA 02 08 

O2DE MAZE FF FF 04 00 FS 7F 15 00 41 FE 5F 04 51 7D 5D 04 
51 B6 54 14 F7 D5 04 54 7F 5E 01 00 FD FF 00 00 
00 00 00 00 00 00 00 00,00 00 

0308 PLACE 05 0B 10 10 14 18 17 10 

0310 POINT1 01 04 80 10 80 02 40 40 

0318 POINT2 02 02 40 01 10 04 80 10 


; end of program 


*kkEe Hex D&mp - Multimaze ***** 


o1rsyx’s i> e agp cde Fr 
0200 E6 DO 20 40 1F DO F9 A2 07 26 DO 90 17 BC 08 03 
0210 BD 10 03 59 DE 02 99 DE 02 C8 C8 BD 18 03 59 DE 
0220 02 99 DE 02 CA 10 E2 A2 02 D8 30 D4 BD DB Q2 95 
0230 D2 CA 10 F8 AO OB Bl D2 99 D8 00 88 10 F8 A2 OA 
0240 A4& D4 AQ FF 38 36 DO 36 D8 2A 88 DO F7 29 07 A8 
0250 B9 C6 02 95 D8 CA CA 10 E7 C6 DS 10 OA AQ 05 85 
0260 DS AS DE 49 4O 85 DE ASX 7F 8D 41 17 AO 09 A2 OA 
0270 B5 D8 8D 40 17 8C 42 17 C6 D6 DO FC C8 C8 CA CA 
0280\¥)0 EE 20 40 1F 20 6A 1F C5 D7 FO CD 85 D7 A2 04 
“0290 DD CE 02 FO 05 CA 10 F8 30 BC CA 30 8D BC D3 02 
02A0 B89 D8 00 3D D7 02 DO B1 CA bu) 04 C6 D4 DO 85 DO 
02B0 04 £6 D4 DO F8 CA DO 06 C6 D2 C6 D2 DO EF E6 D2 
02CO E6 D2 DO E9 FO F2 00 08 40 48 01 09 41 49 33 09 
02D0 01 06 04 06 06 04 08 02 08 40 40 DA 02 O08 FF FF 
02E0 04 00 F5 7F 15 00 41 FE SF 04 51 7D 5D 04 51 B6 
02FO 54 14 F7 DS 04 54 7F SE 01 00 FD FF 00 00 00 00 


0300 00 00 00 00 00 00 00 00 05 0B 10 10 14 18 17 10 
0310 01 04 80 10 80 02 40 40 02 02 40 01 10 O4% 80 10 
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MUSIC BOX 2m 


DESCRIPTION 


THIS PROGRAM PLAYS ONE OR SEVERAL TUNES VIA THE ''AUDIO OUT" 
INTERFACE OF KIM-1. USE THE SAME CONNECTION AS THAT FOR 
RECORDING ON CASSETTE TAPE. IF YOUR TAPE RECORDER HAS 

A "'MONITOR'' FEATURE, YOU CAN LISTEN TO THE TUNE AS WELL 

AS RECORD IT. ALTERNATIVELY, AN AMPLIFIER WILL PLAY THE 
SIGNAL THROUGH A SPEAKER. 


HOW TO RUN 


LOAD THE PROGRAM, LOAD THE TUNE(CS) EITHER FROM CASSETTE 
TAPE, PAPER TAPE, OR KEYBOARD ENTRY. BE SURE 10 STORE 

THE VALUE FA AT THE END OF EACH TUNE, AND BEHIND THE LAST 
TUNE, STORE: FF 00. 

STARTING ADDRESS FOR THE PROGRAM IS 200. ENTER AD 0 2 0 0 GO 


HOW TO WRITE. YOUR OWN TUNECS) 


EACH NOTE GOES INTO A BYTE OF STORAGE, STARTING AT LOCATION 
0000 OF MEMORY. EACH TUNE SHOULD END WITH THE VALUE FA 
WHICH STOPS THE PROGRAM UNTIL GO IS PRESSED. 


SPECBAL CODES ARE INCORPORATED IN®THE PROGRAM TO ALLOW 
CERTAIN EFFECTS — ADJUSTMENT OF SPEED, TONE, ETC. 

THE CODES ARE FOLLOWED BY A VALUE WHICH SETS THE 
PARTICULAR EFFECT. CODES ARE LISTED BELOW. 


CODE EFFECT INITIALLY EXAMPLES 
FB SETS SPEED OF TUNE $30 18 IS QUICK; 60 IS SLOW 
FC SETS LENGTH OF 02 2 MEANS, "LONG NOTE LASTS 
"LONG"! NOTES TWICE AS LONG AS SHORT" 
‘FD SETS OCTAVE CPITCH) 01 2 1S BASS; 4 IS DEEP BASS. 
FE SETS INSTRUMENT $FF FF IS PIANO; 00 IS CLARINET. 
FF SETS ADDRESS FOR 00 00 WILL TAKE YOU BACK TO 
TUNE FIRST TUNE; LIKE A "JUMP! 


FOR EXAMPLE, AT ANY TIME DURING A TUNE, YOU MAY INSERT 
THE SEQUENCE FB 18 AND THE TUNE WILL THEN BEGIN TO PLAY 
AT FAST SPEED. INSERTING FF 45 WILL CAUSE A SWITCH TO 
THE TUNE AT AQDRESS 45. THE INITIAL VALUES SHOWN CAN 
BE RESET AT TIME BY STARTING AT ADDRESS 200. 


NO TUNE SHOULD EXTEND BEYOND ADDRESS DF, SINCE PROGRAM 
VALUES ARE STORED AT E0 AND UP. 


THE PROGRAM CAN BE EASILY CONVERTED TO A SUBROUTINE 

CBY REPLACING THE BRK INSTRUCTION WITH A RTS). THIS ALLOWS 
THE PROGRAMMER TO PLAY VARIOUS "PHRASES" OF MUSIC TO 
PRODUCE QUITE COMPLEX TUNES. 


91 


THE LOWEST NOTE YOU CAN PLAY IS A BELOW MIDDLE C. FOR EACH NOTE, 
YOU CAN SELECT WHETHER IT IS PLAYED AS A LONG NOTE OR A SHORT NOTE 
CNORMALLY, A LONG NOTE WILL LAST TWICE AS LONG AS A SHORT NOTE). 


SOME OF THE NOTES ARE AS FOLLOWS: 


NOTE SHORT LONG 
Risosteisessasauce 7S FS 
At 6E EE 
Bevecvcvccvecceeees08 E8 
MIDDLE C 62 E2 
CHi ccaesegeeesaee wee DC 
D 56 D6 
Diiiiaehurakgutaneteasbe D2 
E 4D cD 
ere Ree or ree otal C8 
Fe 44 ch 
ae ee er CO 
GH 3C BC 
Avitcusaowausess exe 39 Bg 
At 35 B5 
Baw sdasateanwen sien 32 B2 
HIGH C 2F AF 
CD re nye AC 
D 29 AQ 
eerie Au 

22 
Gia teae eieeniwsee Sle 9E 
PAUSE 00 80 


3 INITIALIZE - RESET WORK PARAMETERS 


0200 A2 05 START LDR #505 
0202 BD 86 02 IPI LDA INIT,X 
0205 95 E0 STA WORK, X 
0207 CA DEX 

0208 10 F8 BPL LP1 


3 MAMMA ROUTINE HERE - WORK NOT RESET 


020A AQ BF GO LDA #$BF 

020C 8D 4317 STA PBDD OPEN OUTPUT CHANNEL 
020F AO 00 LDY #500 

0211 Bl E4 LDA CWORK+4),Y GET NEXT NOTE 

0213 E6 E4 INC WORK+4 

0215 C9 FA CMP #$FA TEST FOR HALT 

0217 DO 04 BNE NEXT 

0219 00 BRK COR RTS IF USED AS SUBR.) 
021A EA NOP 

021B FO ED BEQ GO RESUME WHEN GO PRESSED 
021D 90 0B NEXT BCC NOTE IS IT A NOTE? 

021F £9 FB SBC #$FB IF NOT, DECODE INSTR. 
0221 AA TAX AND PUT INTO X 
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0222 
0224 
0226 
0228 


022A 
022C 
022E 
0230 
0231 
0233 
0235 
0237 
0239 
023B 
023D 
023F 
0241 
0243 
0245 
0247 
0249 


B1 E4 
E6 E4 


BO EO 


O24B 9 A7 


O24D 
0250 
0252 
0254 
0256 
0259 
025B 


025D 
025F 
0261 
0263 
0265 
0267 
0269 
026B 
026D 
026F 
0272 
0273 
0275 
0277 
0279 
027B 
027D 
O27F 


AX E2 
84 EB 
86 EC 
EO 00 
DO 08 
A® EC 
C6 

DO F6 
FO 16 
8D 42 
CA 

C6 EB 
DO EC 
C6 E7? 
DO E8 
A4 EO 
84 E7 
C6 E6 


LDA (WORK+4),Y get parameter 


ING 
STA 
BCS 


WORK+4 
WORK, X 
GO 


store in work table 
unconditional branch 


set up for timing note 


NOTE 


OVER 


HUSH 


ON 
02 


02 


subroutine to send 


LDX 
STX 
LDX 
TAY 
BMI 
LDX 
oTX 
AND 
STA 
BEQ 
STA 
LDA 
AND 
BEQ 
INC 
DEC 
LDX 
LDA 
JSR 
BMI 
LDX 
LDA 
JSR 
BMI 
wWBPL 


WORK 
LIMIT+1 
WORK+1 


OVER 
#1 
LIMIT 
#$7F 
VAL2 
HUSH 
VAL1 
VAL2 
WORK+3 
ON 
VAL1 
VAL2 
VAL2 
#$A7, 
SOUND 
GO 
VAL1 
#$27 
SOUND 
GO 
HUSH 


SOUND LDY WORK+2 


SLOOP 


17 CONT 


STY 
STX 
CPX 
BNE 
LDX 
DEC 
BNE 
BEQ 
STA 
DEX 
DEG 
BNE 
DEC 
BNE 
LDY 
STY 
DEC 


TIMER 
XSAV 
#0 
CONT 
XSAV 
TIMER 
SLOOP 
SEX 
SBD 


LIMIT+2 
SLOOP 
LIMIT+1 
SLOOP 
WORK 
LIMIT+1 
LIMIT 
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timing 


long note factor 

test accumulator 

long note? 

nope, set short note 
store length factor 
remove short/long flag 


is it a pause? 
no, set pitch 
get timing and.. 
bypass if muted 


else fade the 
note 


bit 7 on 
delay half cycle 


bit 7 off 

delay the other half 
end of note? 

no, more cycles 


a bit 
octave flag 


bit timing 

end of timing? 
no, continue 
restore timing 
in case of.. 
»-.another octave 
else exit 


0281 DO 0 ’ BNE SLOOP 
0283 AQ FF LDA #SFF 
0285 60 SEX RTS 
; INITIAL CONSTANTS 
0286 300201 °#INIT .BYTE $30,2,1,SFF,0,0 
FF 00 00 


SAMPLE MUSIC FOR MUSIC BOX PROGRAM 


0000 FB 18 FE FF 44 51 E6 E6 66 5A 51 4C C4 C4 C4 DI 
0010 BD BD BD 00 44 BD 00 44 3D 36 33 2D A8 80 80 33 
0020 44 B3 80 80 44 51 C4 80 80 5A 51 E6 80 80 FA 


0020 FE 
0030 00 FB 28 5A 5A 51 48 5A 48 D1 5A 5A 51 48 DA E0 
0040 5A 5A 51 48 44 48 51 5A 60 79 6C 60 DA DA FA 


0040 FE 
0050 FF 5A 5A 5A SA 5A SA 66 72 79 E6 E6 80 00 56 56 
0060 56 56 56 56 5A 66 F2 80 80 4C 4B 4C 4C 4c 4c 56 
0070 SA 56 4C 00 C4 44 4C 56 5A 5A 56 5A 66 56 5A 66 
0080 F2 80 FE 00 00 72 5A CC 72 5A CC 72 5A CC 80 BS 
0090 80 4C 56 SA 56 5A E6 F2 80 FA FF 00 


NOTE THAT TUNES 1 AND 2 SET BOTHTHE SPEED AND THE INSTRUMENT. 
TUNE 3 CONTINUES AT THE SAME SPEED AS THE PREVIOUS ONE; BUT THE 
INSTRUMENT IS CHANGED DURING THE TUNE. 


THE PROGRAM CAN BE CHANGED TO USE THE SPEAKER SHOWN IN 
FIGURE 5,1 OF THE KIM MANUAL AS FOLLOWS: 


BYTE INITIALLY CHANGE TO 
020D 43 01 
024C A7 FF 
0255 27 00 
0270 42 70) 


. 


*ekkkk Extra Datafile for Music Box ***** 


BEGB- FE @@ 56 52 4D AF 4D AF 4D FC @6 AF FC Ge FE FF 
BB10- 2@F 29 26 24 EF 29 AA 32 AD FC B6 AF FC G2 FE BB 
BB2e- 56 52 40 AF 40 AF 4D FC @6 AF FC 62 FE FF 39 49 
@836- 44 39 2F A4 29 2F 39 AD 8B 8H FE 6@ S56 SE 4D AF 
OG 46- 4D AF 4D FC 66 AF FC @2 FE FF @F 29 26 24 OF 29 
a650- A4 32 AO AF 8@ &@ 2F 29 24 OF 29 A4 OF 29 2F 24 
28 60- 2F 29 A4 OF 29 2F 24 OF 29 AA 32 AD AF 8B 8B FA 
6270- FF @@ 


Note: be sure to set the break vector 17FE,FF (00,1C) 
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PING PONG . vx: cx 


Play against the computer, or C slam F 
change the program for a two-player 

game. On each shot, you choose 8 block B 
between four plays: Spin, Lob, 

Block, or Slam. If you're playing 4 lob 7 
the left side of the court, use the 

left-hand buttons (0, 4, 8 and C). 0 spin 3 


See the diagram at right. 


Each shot has its own strengths and weaknesses: for 
example, a Slam is a powerful shot, but it's also likely 
to be "fluffed". Strategy is not trivial - your chances 
of success on any play depend not only on your choice of 
shot, but on what shots have gone before. You'll have to 
learn the combinations the hard way. 


@You'll see the net in the middle of the court. Don't try 
to play the ball until it is on your side of the net, or 
you'll lose the point. Each type of shot has a 
distinctive appearance, which you'll learn to recognize. 
TMgy are similar to the key positions: a Spin lights the 
bottom segment, a Lob lights the middle segment, a Block 
Ifghts the upper segment, and the mighty Slam shot lights 
all three segments and travels faster. 


The original version of the game was published for the 
HP-67 calculator in "65 Notes", V4N2P5. Authorship was 
not given. 


At first, the shots will come too fast for you to cope 
with. There are two ways to solve this. The easy way is 
the "freeze" the ball by holding down any unused key, 
like AD or 7: play will be suspended until you figure 
out what you want to do next. The harder way, but not 
too hard, is just to slow down the ball by changing the 
program: locations 0331 to 0334 contain the speeds for 
each type of shot. Increase these values and the ball 
will slow down, e.g., 40 40 40 28 will halve the speed. 


For a two-player game, where KIM does not play the right 
side, change location 032C to 01. To have KIM play the 
left side, change location 032B to 00. 

KIM plays a strong game, but CAN BE BEATEN! 
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0200 20 40 1F START JSR KEYIN directional registrs 


0203 20 6A 1F JSR GETKEY input key 
0206 C9 13 CMP #$13 GO key? 
0208 DO OA BNE NOGO nope, skip 
; GO key - set up game here 
020A A2 08 LDX #8 get 9 
020C BD 24 03 SETUP LDA INIT,X .-inital valus 
020F 95 80 STA SPEED,X to zero page 
0211 CA DEX 
0212 10 F8 BPL SETUP 


; test legal keys (0,3,4,7,8,B,C,F) 
0214 C9 10 NOGO CMP #$10 key 0 to F? 


0216 BO 22 BCS NOKEY no, skip 

0218 AA TAX save key in X 
0219 29 03 AND #3 test column 

021B FO 04 & BEQ KEY col 0 (0,4,8,C)? 
021D C9 03 CMP #3 col 3 (3,7,B,F)? 
021F DO 19 BNE NOKEY neither ~ skip 


0221 45 85 KEY EOR PLACE check vs ball postn 
0223 A8 TAY 


0224 29 04 AND #4 ball off screen? 
0226 DO 12 BNE NOKEY 
0228 8A TXA restore key 
0229 45 84 EOR DIRECT ball going away? 
022B 29 02 AND #2 
022D FO OB BEQ NOKEY yes, ignore key 
022F 98 TYA ball position 
0230 29 02 AND #2 wrong side of net? 
0232 DO 69 BNE POINT yes, lose! 

; legal play found here 
0234 8A TXA restore key 
0235 4A 4A LSRA LSRA type (0=Spin, etc) 
0237 20 Bl 02 JSR SHOT make shot 


; key rtns complete ~ play ball 
023A 20 40 1F NOKEY JSR KEYIN if key still prest.. 


023D DO 27 BNE FREEZE freeze ball 

023F C6 83 DEC PAUSE 

0241 10 23 BPL FREEZE wait til timeout 

0243 AS 80 LDA SPEED 

0245 85 83 STA PAUSE 

0247 18 CLC 

0248 AS 85 LDA PLACE move.. 

024A 65 84 ADC DIRECT --ball 

024C 85 85 STA PLACE 

024E 29 04 AND #4 ball still... 

0250 FO 14 BEQ FREEZE in court? 
; ball outside - KIM to play? 

0252 A5 85 LDA PLACE 

0254 30 04 BMI TESTL ball on left 

0256 A5 88 LDA PRITE KIM plays right? 

0258 10 02 BPL SKPT unconditional 


025A A5 87 TESTL LDA PLEFT KIM plays left? 
025C DO 3F SKPT BNE POINT no, lose point 


96 


025E 
0260 
0263 
0266 
0268 


026B 
026D 
026F 
0271 
0273 
0275 
0277 
0279 
027B 
027D 
027E 
0241 

28 

286 
0288 
028A 
028C 
028F 
0291 
0293 
0295 
0298 
0299 
029B 


029D 
02A0 
02Al 


02A4 
02A7 
02AA 
02AC 
02AE 
02B0 
02B1l 
02B2 
02B4 
02B6 
02B8 
02BA 
02BC 
02BE 
02BF 
02Cl1 
02C3 


82 
82 
82 
82 
OF 
82 


80 
83 
83 


03 
02 


17 


1F 
02 


03 


02 


02 
02 


17 
17 


; KIM plays either side here 
LDX LOG log determines.. 
LDA PLAY,X ..KIM's play 
JSR SHOT make the shot 
FREEZE LDA #$7F 
STA PADD open registers 
; light display here 
LDY #$13 
LDX #1 
STX DIGIT count score digts 
LDA SCORE 
LSRA LSRA shift & store.. 
LSRA LSRA ..Left player score 
STA ARG 
LDA SCORE 
AND #S0F ..-right player score 
TAX 
HOOR LDA TABLE,X 
JSR SHOW 
LDA ARG 
DEC DIGIT 
BPL HOOP 
LDX #3 
VUE LDA PIX,X 
CPX PLACE 
BNE NOPIX 
“ ORA SPOT show the ball 
NOPIX JSR SHOW 
DEX 
BPL VUE 
BMI SLINK 
; lose! score &.reverse board 
POINT JSR SKORE 
SLINK CLD 
JMP START return to main loop 
; display subroutine 
SHOW STA SAD 
STY SBD 
STALL DEC MOD 
BNE STALL 
DEY DEY 
RTS 
SHOT TAY save shot in Y 
LDX LOG old log in X 
ASL LOG 
ASL LOG 
ORA LOG 
AND #SF update log book 
STA LOG -.-Llast two shots 
SEC 
LDA SPEED : 
SBC PAUSE invert timing 
STA PAUSE 
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03 
03 


03 


17 


03 


; set speed & display segment(s) 

LDA SPD,Y 

STA SPEED 

LDA SEG,Y 

STA SPOT 
; test play success - random 

LDA CHANCE,X odds from log bk 
GIT DEY 


BMI GET 

LSRA LSRA 

BPL GIT unconditional 
GET AND #3 odds 0 to 3.. 

ASL A now 0 to 6 

STA TEMP 

LDA TIMER random number 

AND #7 now 0 to 7 

CMP TEMP 


BEQ REVRS success? 
BCC REVRS success? 
; lose a point & position tOyserve. 
SKORE LDX #4 position ball R 
LDA DIRECT 
ASLA ASLA 
ASLA ASLA 
BPL OVER 
LDX #SFF position ball L 
LDA #1 
OVER STX PLACE 
CLC 
ADC SCORE 
STA SCORE 
LDY #0 end game, kill ball 
TLP TAX 
AND #SF get one score 
CMP #$11 11 points? 
BNE SKI 
STY DIRECT kill ball 
SKI TXA 
LSRA LSRA 
LSRA LSRA 
BNE TLP 
; set serve - speed, spot, log, pause 
LDX #3 
SRV LDA INIT,X 
STA SPEED,X 
DEX 
BPL SERVE 
s reverse ball direction 
REVRS LDA DIRECT 
CLC 
EOR #SFF 
ADC #1 
STA DIRECT 
RTS 


98 


3; tables - in Hexadecimal format 


0324 INIT 30 08 00 80 01 FF 00 01 00 

032D PIX 00 06 30 00 

0331 SPD 20 20 20 14 

0335 SEG 08 40 01 49 

0339 PLAY 02 02 01 02 01 03 01 02 03 03 00 02 00 00 02 02 


0349 CHANCE 78 BS 9E 76 6E Al AE 75 AA EB 8F 75 5B 56 7A 35 
0359 end 


zero Page: 80: SPEED - speed ball travels 
81: SPOT - segment(s) ball lights 
82: LOG - record of recent plays 
83: PAUSE - delay before ball moves 
84: DIRECT - direction of ball 
85: PLACE - position of ball 
86: SCORE 
87: PLEFT - 0 for KIM to play left 
88: “PRITE - 0 for KIM to play right 


*kkkk Hex Dump —- Ping Pong ***** 


0200 20 40 1F 20 6A 1F CQ 13 DO OA A2 08 BD 24 03 95 
0210 80 CA 10 F8 C9 10 BO 22 AA 29 03 FO 04 C9 03 DOD 
0220 19 45 85 A8 29 04 DO 12 8A 45 84 29 02 FO 0B 98 
0230 29 02 DO 69 8A 4A 4A 20 B1 02 20 40 1F DO 27 C6 
0240 83 10 23 A5 80 85 83 18 A5 85 65 84 85 85 29 04 
0250 FO 14 AS 85 30 04 AS 88 10 02 A5 87 DO 3F AB 82 
0260 BD 39 03 20 Bl 02 AQ 7F 8D 41 17 AD 13 A2 01 86 
0270 89 A5 86 4A 4A 4A 4A 85 8A AS 86 29 OF AA BD E7 
0280 1F 20 A4 02 Ab 8A C6 89 10 F4 A2 03 BD 2D 03 E4 
0290 85 DO 02 05 81 20 AY 02 CA 10 Fl 30 03 20 £9 02 
02A0 D8 4C 00 02 8D 40 17 8C 42 17 C6 8B DO FC 88 88 
02B0 60 A8 AG 82 06 82 06 82 05 82 29 OF 85 82 38 AS 
02CO 80 E5 83 85 83 BO 31 03 85 80 B9 35 03 85 81 BD 
02D0 49 03 88 30 04 4A 4A 10 FO 29 03 OA 85 8C AD 04 
02E0 17 29 07 CS 8C FO 33 90 31 A2 04 A5 84 OA OA OA 
02FO OA 10 04 A2 FF AQ O1 86 85 18 65 86 85 86 AD 00 


0300 AA 29 OF C9 0B DO 02 84 84 8A 4A 4A 4A 4A DO’ FO 
0310 A2 03 BD 24 03 95 80 CA 10 F8 AS 84 18 49 FF 69 
0320 01 85 84 60 30 CO 00 80 01 FF 00 01 00 00 06 30 
0330 00 20 20 20 14 08 40 01 49 62 02 01 02 01 03 O01 
0340 02 03 03 00 02 00 00 02 02 78 B5 YE 76 6E Al AE 
0350 75 AA EB 8F 75 5B 56 7A 35 
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QUICK 


Description - 


By Peter Jennings 
Modified by Jim Rutterfield 


Here's a program to test your speed of reaction. Press 


"GO" and the display will blank for a random period of time. 
When it lights, hit any numbered button. The number on the 
display will tell you how quick you were; the smaller the 
number, the faster your reaction time. You may play repeatedly, 
just press "GO" each time you want a new test. 


0300 
0302 
0303 
0305 
0307 
0309 
030C 
030E 
0310 
0312 
0314 
0316 
0318 
031A 
0318 
031C 
031E 
Q320 
0322 
0323 
0325 
0326 
0329 
032B 
032E 
0331 
0333 
0335 


G38e- 
@310- 
Q320- 
0330- 


AS 


65 
29 


20 
DO 
E6 
DG 


DO 
85 


F8 
38 
B5 
69 
95 


DO 
D8 


FO 
20 
20 
cg 
DO 
FO 


AS 
8] 7) 
95 
1F 


40 1F 


1F 1F 


START 


ZIP 


RUN 


DIGIT 


1F 1F STAND 


6A 1F 
13 
F6 
C9 


F9 2A 
F7 E6 
FC E& 
C9 13 


kkEKK Tax 


65 
FE 
DO 
Dg 


F9 
Da 
F7 
F6 


29 
F3 
D& 
FO 


LDA INH RANDOMIZE DELAY 


ROL A . BY MULTIPLYING 
ADC INH BY 3 AND 
AND #57F KING 


STA POINTH WORK DISPLAY AREA 
JSR KEYIN IF YOU CHEAT BY KEYING... 
BNE ZIP PROGRAM WAITS YOU OUT 
INC POINTL 

BNE ZIP COUNT DOWN FOR 

INC POINTH RANDOM DELAY 

BNE ZIP 

STA INH SET TO ZERO 

LDX #$FD NEGATIVE THREE 

SED COUNT IN DECIMAL 

SEC ADD VALUE 1 

LDA POINTH+1, X 

ADC #500 ADD IT IN 

STA POINTH+1, X 

INX MOVE ON TO NEXT DIGITS 
BNE DIGIT 

CLD 

JSR SCANDS LIGHT UP COUNT 

BEQ RUN AND KEEP COUNTING 

JSR SCANDS 

JSR GETKEY 

CMP #$13 GO KEY DEPRESSED? 

BNE STAND NOPE, HOLD IT 

BEQ START YUP, START OVER 


Dump - Quick ***** 


7F 85 FE 20 40 IF DO FE E6 FA 
85 F9 A2 FL F& 38 BS FC 69 20 
20 IF IF FO EL 20 IF IF 20 6A 
C9 


100 


REVERS E vx 


Start at 0200 - the display will show a combination of 6 letters 
such as CDBAFF, Hit a number from 2 to six to 'flip' letters. 
For example, if you hit 2 with the previous example, the first 
two letters will flip over to give DCBAFF. Now if you hit 4, 
you'll get the winning combination - ABCDEF ~ and the display 
will signal your win with a line of dashes. 


The computer won't limit your number of flips ~- but try to 
get a win in 6 moves or less, By the way, the computer forbids 
doing the same flip twice in succession ~ so you can't hack up a move. 


0200 F6 16 START INC RND+4 randomize 


0202 20 40 1F JSR KEYIN **Game by Bob Albrecht - 
0205 DO F9 BNE START People's Computer Co ** 
0207 DE CLD 

0208 A2 05 LDX #5 

020A AY 00 LDA #0 

020C 8&6 10 STX POINTR 


020E 95 18 ZLOCP STA WINDOW,X set window to zeros 
0210 CA DEX 


0211 10 FB BPL ZLOCP 

0213 38 RAND SHC 

0214 A5 13 LDA RND+1 hash in new random number 
0216 65 16 ADC RND+4 

0218 65 17 ADC RND+5 

021A 85 12 STA RND 

021C A2 O4 LDX #4 

O21E B5 12 RLP LDA RND,X move random string down one 
0220 95 13 STA RND+1,X 

0222 CA DEX 

0223 10 F9 BPL RLP 

0225 AO CO LDY 4$Co divide random # by 6 
0227 8 11 STY MOD 

0220 AD 06 LDY #6 

022B C5 11 SET CMP MOD 

022D 90 02 BCC PASS 

022F E511 SBC MOD 

0231 46 11 PASS LSR MOD 

0233 &8 DEY 

0234 DO F5 BNE SET 

0236 AA TAX 

0237 AY 19 LLY POINTR 

0239 BO Fl IF LDA TABLE+10,Y digits A to F 

023C CA TOP DEX 

023D lo 02 BPI, TRY find an empty window 
023F A2 05 LDX 45 

0241 BY 18 TRY LDY WINDOW ,X 

0243 DO F7 BNE TOP 

0245 95 18 STA WINDOW ,X and put the digit in 
0247 C6 10 DEC POINTR 

0249 10 C& BPL RAND 
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O245 FO 
O24D A2 
O24F BS 
0251 DD 
0254 DO 
0256 CA 
0257 10 
0259 A2 
025B AQ 
025D 95 
O25F CA 
0260 10 
0262 AJ 
0264 & 
0267 AO 
0269 A2 
026B BS 
026D &D 
0270 &C 
0273 C6 
0275 D9 
0277 C8 
0278 C& 
027¢ F8 
027A 30 
027C 20 
027F 20 
0282 C9 
0284 FO 
0286 C9 
0288 BO 
028A AA 
028B FO 
o28D CA 
028E FO 
0290 E4 
0292 FO 
0294 86 
0296 BS 
0298 48 
0299 CA 
029A 10 
029C A6 
029F 68 
O29F 95 
O2A1 CA 
0242 10 
O2A4 30 


B3 
05 
18 
A6 02 
oc 


F6 
05 
4O 
18 


FB 
TF 
41 1? 
09 
FA 
1E 
ho 17 
h2 19 


FC 


Oy 
hn IF 
6A IF 
13 
C5 
07 
C3 


FA 
10 


18 


FA 
is 6 


SLINK EEQ 
WIEST LDX 
TEST2 LDA 


SET 


TOP1 


TOP 


2 


CMP 
BNE 
DEX 
BPL 
LDX 
LDA 
STA 
DEX 
BPL 
LDA 
STA 
LDY 


LDX # 


LDA 
STA 
sTy 
DEC 
ENE 
INY 
INY 
INX 
BPL 
JSR 
JSR 
CMP 
3RQ 
CMP 
ECS 
TAX 
BEQ 
DEX 
BEQ 
CPX 
EQ 
STX 
LDA 
PHA 
DEX 
EPL 
LDX 
PLA 
STA 
DEX 
EPL 
BMI 


START 

#5 
WINDOW ,X 
WINNER ,X 
PLAY 


TEST2 

#5 

#340 
WINDOW ,X 


SET 

#S7F 
SADD 
#509 


SHOW 
KEYIN 
GETKEY 
4$13 
SLINK 
"7 
WTEST 


PLAY 


PLAY 
POINTR 
PLAY 
POINTR 
WINDOW ,X 


TOP1 
POINTR 
WINDOW ,X 


TOP2 
PLAY 


link to start 
test 
win 
condition 


directional 
registers 


negative 5 
light 
display 


GO key? 
yes, restart 

Keys 0 to 6? 
no, test win 

Keys 1 to 6? 
no, exit 

Keys 2 to 6 (=1 to 5)? 
no, exit 

Same key as before? 
yes, ignore 
no, we've got a live one 


rol2 ‘em out... 


roll ‘em back in 


02A6 F7 FC BO WINNER .BYTE $F7,SFC $39, SDE ,$F9, 91 


02A9 DE 


F9 Fl 


° 
. 


end 
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TEASER sects 


Description - 

This program is an adaptation of the "Shooting Stars" 
game utilizing the keyboard and display of the KIM-1. 
Originally published in the Sept. '74 issue of PCC, a 
version also appeared in the May '76 issue of Byte magazine. 

The starfield is displayed on the horizontal segments 


of the second through fourth digits of the display. The 


9200 
0202 
0204 
0206 
0207 
0209 
0208 
020D 
020F 
0211 
0212 
0214 
0217 
0219 
0218 
O21E 
0220 
0223 
0225 
0228 
022A 
022C 
022E 
0230 


segments represent stars when lit and are numbered as follows: 


Shooting a star creates a hole where the star 7 8 9 
was. The resulting "explosion" changes the 45 6 
condition of certain adjacent stars or holes, 1 2 3 


(stars to holes, or holes to stars) according to the following; 


Center (5) ote, Sides (2,8) @¢ e - or (4,6) ; 
Comers (1) Y% (3) N (7) N (9) 4 


The game starts with a star in position 5; the rest 
are holes. The object of the game is to reverse the initial 
condition, making 5 a hole and all the rest stars. Eleven 
moves are the minimum number. 

Should you attempt to "shoot" a hole, the first digit 
displays a "H" until a star key is pressed. This digit 
also displays a valid number selection. A count of valid 
moves is given at the right of the display. A win gives 
a "F" in the first digit. All holes is a losing situation, 
("L" in the first digit). You may start over at any time 
by pressing the "Go" button. The program starts at 0200. 


AQ 00 BEGN LDA #500 ZERO REGISTERS DO-DA 
A2 10 LDX #$10 

95 CF cLoP STA OOCF,X 

CA DEX 

DO FB BNE CLOP 

AQ 40 LDA #5 40 eee INITIALIZE DISPLAY... 
85 D4 STA 00DR 

AQ 10 LDA #$10 INIT. STARFIELD 

85 DE STA O0DE REGISTERS 

4A LSR 

85 DF STA OODF 

20 DD 02 MLOP JSR DISP .. «DISPLAY... 

A6 D3 LDX 00D3 MODE? 

DO 50 BNE DELA MODE=1, DELAY AND UPDATE 
20 40 1F JSR 1F40 MODE=0, GET KEY 

FO F4 BEQ MLOP NO KEY, RETURN 

20 40 1F JSR 1F40 KEY STILL PRESSED? 
FO EF BEQ MLOP NO, RETURN 

20 6A 1F JSR GETKEY YES, GET KEY 

cg 13 CMP #$13 "GO" KEY? 

FO D4 BEQ BEGN YES, START AGAIN 

C9 OA CMP #50A OVER 9? 

10 E4 BPL MLOP YES, TRY AGAIN 

A8 TAY USE AS INDEX 
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0231 
0233 
0235 
0238 
023A 
023D 
023F 
0241 
0243 
0245 


0247 
0249 
024B 
024D 
024F 
0251 
0252 
0253 
0255 
0257 
0259 
025A 
025D 
025F 
0261 
0264 
0266 
0268 
0268 
026D 
0270 
0271 
0273 
0275 
0278 
0279 
027B 
027D 
027F 
0281 
0282 
0284 
0285 
0287 
0289 
028A 
028B 
028D 
028F 
0290 
0292 


FO 
85 
20 
85 
B9 
CO 
30 
24 
DO 
FO 


DE 
06 
76 
DO 
C3 


DE 
DE 


DF 
DF 


DE 
06 


02 


02 


02 


SKIP 


HOLE 


STAR 


LOWF 


BEQ 
STA 
JSR 
STA 
LDA 
CMP 
BMI 
BIT 
BNE 
BEQ 


BIT 
BNE 
LDA 
STA 
BNE 
SED 
SEC 
LDA 
ADC 
STA 
CLD 
JSR 
STA 
LDA 
JSR 
STA 
INC 
JMP 
LDY 
JSR 
DEY 
BNE 


MLOP 
00D1 
SEG 
00D0 
02CA, Y 
#506 
SKIP 
OODF 
STAR 
HOLE 


00DE 
STAR 
#576 
00D0 
MLOP 


#500 
00D5 
00D5 


SEG 

O0DA 
00D5 
LEFT 
00D8 
00D3 
MLOP 
#500 
DISP 


DELA 


LDX 00D1 


LDA 
TAY 
CPX 
BMI 
EOR 
STA 
TYA 
LDY 
ASL 
EOR 
STA 
TYA 
LSR 
EOR 
STA 
ASL 
LDA 
LDX 


02D3,X 


#$06 
LOWF 
OODF 
OODF 


#500 
A 

O0DE 
OODE 


A 
OODF 
OODF 
A 
00DE 
#506 
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0? - NOT VALID 

1-9 STORE IT 

CONVERT TO SEGMENTS 
DISPLAY -— LEFT DIGIT 
GET STAR TEST BIT 
TEST KEY # 

1-5, SKIP 

6-9, TEST HI FIELD 
IT'S A STAR 

IT'S A HOLE 


1 T0 5, TEST LO FIELD 
IT'S A STAR 

IT'S A HOLE LOAD "H"' 
DISPLAY-LEFT DIGIT 
UNCOND. JUMP 

UPDATE COUNT 


BY ADDING ONE 
STORE IT 


UNPACK, CONVERT 
TO SEGMENTS AND 
DISPLAY IN DIGITS 
5 AND 6... 


SET MODE TO 1 
MAIN LOOP AGAIN 
MODE = 1 

DELAY ABOUT .8 SEC 
WHILE DISPLAYING 


KEY # AS INDEX 
GET SHOT PATTERN 
SAVE IN Y REGISTER 
KEY # OVER 5? 
NO, GQ TO LOW FIELD 
UPDATE HI FIELD, 6-9 


RECALL PATTERN, 6-9 
NO SHOT 3RD TIME 
ALIGN WITH LO FIELD 
UPDATE LO FIELD 


RECALL PATTERN, 1-5 
ALIGN WITH HI FIELD 
UPDATE HI FIELD, 1-5 
CBLANK SHOT IF 6-9) 
SHIFT 9 TO CARRY 
GET REST OF FIELD 
«STAR DISPLAY... 


0294 
0295 
0296 
0298 
029A 
029B 
029C 
029D 
029F 
02A0 
02A2 
02A4 
02A6 
02A8 
02AA 
02AC 
02AE 
02B0 
02B2 
02B4 
02B6 
02B8 
02BB 
02BE 
02C1 
02C4 
02C6 
02C8 


02CB 
02DB 


02DD 
02DF 
02E2 
02E4 
02E6 
02E8 
02EB 
02ED 
02EF 


02F0 
02F1 
02F2 
02F3 
02F4 
02F6 
02F7 
02FA 


4A 
4A 
4A 
4A 
29 
A8 
BS 
60 


DLOP ROL ALIGN WITH DISPLAY 
PHA SAVE IT FOR NEXT TIME 
4g AND #$49 MASK TO HORIZ. SEGS 
DO STA 00D0,X INTO DISPLAY WINDOW 
PLA RECALL FIELD 
DEX SHIFT TO NEXT 
DEX DISPLAY DIGIT 
F5 BNE DLOP REPEAT TILL DONE 
ROL BIT FOR 5 TO CARRY 
OE BCS MODE 5 1S STAR, CONTINUE 
08 « BEQ LOSE 5 IS HOLE, ALL HOLES 
FF CMP #$FF ALL THE REST STARS? 
08 BNE MODE NO 
71 LDA #$71 YES, LOAD "Ft 
08 BNE FRST AND SKIP 
38 LOSE LDA #$38 LOAD "L", CLOSE) 
04 BNE FRST AND SKIP 
D3 MODE DEC 00D3 SET MODE TO 0 
00 LDA #$00 BLANK FIRST DIGIT 
DO FRST STA 00D0 FILL FIRST DIGIT 
03 BNE NONE END OF GAME 
14 02 JUMP MLOP MAIN LOOP AGAIN 
DD 02 DONE JSR DISP DISPLAY UNTIL 
40 1F JSR 1F40 "GO" KEY IS 
6A 1F JSR GETKEY PUSHED 
13 CMP #913 
F3 * BNE DONE 
00 02 JUMP BEGN START A NEW GAME 
8 04 08 10 10 20 40 80 1B 07 36 49 BA 92 6C 
D 
#3 DISPLAY SUBROUTINE **< 
7F DISP LDA #$7F TURN ON DISPLAY 
41 17 STA 1741 
09 LDX #$09 
C7 MORE LDA 00C7,X PUT IN@SEGMENTS 
FC STY OOFC SAVE Y 
4E 1F JSR 1F4E DISPLAY THEM 
15 CPX #515 DONE? 6 TIMES 
F5 BNE MORE NO, LOOP 
RTS YES, RETURN 
#82 HEX CONVERSION SUBROUTINE **** 
LEFT LSR A 
LSR A 
LSR A 
LSR A 
OF SEG AND #S0F MASK TO 4 BITS 
TAY USE AS INDEX 
E7 1F LDA 1FE7,Y CONVERT TO SEGMENTS 
RTS RETURN 
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TIMER vivo 


Description - 

TIMER tums KIM into a digital stopwatch showing up to 
99 minutes and 59.99 seconds. It is designed to be accurate 
to 50 microseconds per second. The interval timer is used 
to count 9984 cycles and the instructions between the time 
out and the reset of the timer make up the other 16 cycles 
in .01 seconds. The keyboard is used to control the routine 
as follows: Stop (0), Go (1), Return to KIM (4), Reset (2). 


0200 AQ on BEGN LDA #$00 

0202 85 F9 STA INH ZERO DISPLAY 
0204 85 FA STA POINTL 

0206 85 FB STA POINTH 

0208 20 1F 1F HOLD JSR SCANDS LIGHT DISPLAY 
0208 20 6A 1F JSR GETKEY 

020E C9 04 CMP #$04 KEY 42 

0210 DO 03 BNE CONT 

0212 4c 64 1C JMP 1C64 RETURN TO KIM 
0215 C9 02 CONT CMP #502 KEY 2? 

0217. FO £7 BEQ BEGN BACK TO ZERO 
0219 C9 O01 CMP #$01 KEY 1? 

021B DO EB BNE HOLD 

021D AQ 9C LDA #$9C 

021F 8D 06 17 STA 1706 SET TIMER 
0222 20 1F 1F ODISP JSR SCANDS DISPLAY VALUE 
0225 AD O07 17 CLK LDA 1707 CHECK TIMER 
0228 FO FB BEQ CLCK 

022A 8D 00 1C STA ROM DELAY 4 MICROSEC. 
022D AQ 9C LDA #$9C SET TIMER 
022F 8D 06 17 STA 1706 

0232 18 CLC 

0233 F8 SED SET FLAGS 
0234 AS FY LDA INH 

0236 69 01 ADC #501 INC. 100THS 
0238 85 FY STA INH 

023A AS FA LDA POINTL 

023C 69 00 ADC #$00 INC. SECONDS 
023E 85 FA STA POINTL 

0240 C9 60 CMP #560 STOP AT 60 
0242 DO OB BNE CKEY 

0244 AQ 00 LDA #$00 

0246 85 FA STA POINTL ZERO SECONDS 
0248 AS FB LDA POINTH 

024A 18 CLC 

024B 69 01 ADC #$01 INC, MINUTES 
024D 85 FB STA POINTH 

O24F D8 CKEY CLD 

0250 20 6A 1F JSR GETKEY READ KEYBOARD 
0253 C9 00 CMP #500 KEY 0? 

0255 DO CB BNE DISP 

0257 FO AF BEQ HOLD STOP 
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By Stan Ockers 


Description - 

Wumpus lives in a cave of 16 rooms (labeled 0-F). Each room 
has four tunnels leading to other rooms (see the figure). When the 
program is started at 0305, you and Wumpus are placed at random in 
the rooms. Also placed at random are two bottomless pits (they don't 
bother Wumpus, he has sucker-type feet) and two rooms with Super- 
bats (also no trouble to Wumpus, he's too heavy). If you enter a bat's 
room you are picked up and flown at random to another room. You 
will be warned when bats, pits or Wumpus are nearby. If you enter the 
room with Wumpus, he wakes and either moves to an adjacent room or 
just eats you up (you lose). In order to capture Wumpus, you have 
three cans of "mood change" gas. When thrown into a room containing 
Wumpus, the gas causes him to turn from a vicious snarling beast 
into a meek and loveable creature. He will even come out and give you 
a hug. Beware though, once you toss a can of gas in the room, it is 
contaminated and you cannot enter or the gas will turn you into a 
beast (you lose). 

If you lose and want everything to stay the same for another try, 
start at 0316. The byte at 0229 controls the speed of the display. Once 
you get used to the characters, you can speed things up by putting ina 
lower number. The message normally given tellg you what room you 
are in and what the choices are for the next room. In order to fire 
the mood gas, press PC (pitch can?), when the rooms to be selected 
are displayed. Then indicate the room into which you want to pitch 
the can. It takes a fresh can to get Wumpus (he may move into a room 
already gassed) and he will hear you and change rooms whenever a 
can is tossed (unless you get him). If Wumpus moves into a room with 
a pit or Superbats, he'll be hidden - you won't be told WOMPUS CLOSE, 
Either guess, or pitch a can to make him move. Good hunting. 

The program is adapted from a game by Gregory Yob which 
appears in The Best of Creative Computing. 
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0305 
0307 
0309 
030B 
030C 
030E 
0310 
0312 
0314 
0316 
0318 
031A 
031D 
O31F 
0321 
0323 
0324 
0326 
0329 
032A 
032C 
032F 
0331 
0333 
0336 
0339 
033A 
033C 
033E 
0340 
0342 
0344 
0346 
0348 
034A 
O34C 
034E 
0350 
0353 
0355 
0357 
0359 
035B 
035E 
0260 
0362 
0364 
0367 
0369 
036A 
036C 
036E 
036F 


02 


00 


02 


00 
02 


02 


1F 


1F 


02 


INIT 


GETN 


CKNO 


ADJR 


NXTR 


SKP1 


SKP2 
MESS 


XRO 


CPX 
BMI 
LDA 
BPL 
LDA 
LDY 
JSR 
DEC 
LDY 
BPL 
LDY 
LDA 
STA 
LDX 
LDY 
LDA 
STA 
DEX 
BPL 
LDY 
TYA 
JSR 


#SFF 
#50E 
00C1,X 


INIT 
#503 
00E0 
#505 
GETN 
#$00 
#505 
RAND 
#50F 
00CA, X 
GETN 


CKNO 
00CA,Y 


GETN 
NXTR 
#$03 
00E1 
00C6,Y 
COMP 


NOMA 
#503 
SKP1 
#$19 
MESS 
#501 
SKP2 
#S0E 
MESS 
#500 
#501 
SCAN 
00E1 
00E1 
NXTR 
OOCA 
1FE7,Y 
000Cc 
#$03 
00C6,X 
1FE7,Y 
0020, X 


XRO 
#500 


SCAN 
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«o- INITIALIZATION... 
.. CLEAN OUT ROOMS.. 
INIT. TO FF 

FINISHED? 

NO 

GIVE THREE CANS OF GAS 


. « eRANDOMIZE... 
YOU,WUMPUS, PITS AND BATS 
CONLY YOU ENTRY) 


. «MAKING SURE ALL 
ARE DIFFERENT... 


STORE IN 00CA~-O0OCF 


SET UP ADJACENT ROOM LIST 
HAZARDS IN ADJ. ROOMS? 


COMPARE EACH TO HAZARDS 
(CX CONTAINS MATCH INFO, ) 
NO MATCH, NO HAZARDS 
BATS? 

NO ° 
CBATS NEARBY MESSAGE) 


PIT? 
NO 
(PIT CLOSE MESSAGE) 


MUST BE WUMPUS 
(PAGE ONE) 

DISPLAY HAZARD MESSAGE 
TRY NEXT ADJ. ROOM 
FINISHED? 

NO 

.»LOAD AND DISPLAY - 
"YOU ARE IN ... TUNNELS 
LEAD TO ....'' MESSAGE... 
CFOUR NEXT ROOMS) 


CONVERS ION 

PUT IN MESSAGE 
FINISHED? 

NO 

LOCATION AND.. 
PAGE OF MESSAGE 
DISPLAY MESSAGE 


0372 
0375 
0377 
0379 
037C 
037E 
037F 
0381 
0383 
0385 
0387 
0389 
038A 
038C 
038F 
0390 
0392 
0394 
0396 
0398 
039A 
039C 
039E 
03A1 
03A4 
03A6 
03A8 
03AA 
03AD 
03AF 
03B1 
03B4 
03B7 
03B9 
O3BC 
O3BE 
03C1 
03C3 
03C5 
03C8 
03CB 
03CE 
03D0 
03D1 
03D3 
03D5 
03D7 
03D9 
03DB 
03DD 
03DF 
0361 
03E3 
03E6 


8F 02 


00 02 
99 02 


NXTG 


BATM 


PITM 


GASM 


ROOM 


JSR 
CMP 
BEQ 
JSR 
STA 
TXA 
BMI 
LDA 
LDX 
CMP 
BEQ 
DEX 
BPL 
JSR 
TXA 


DEBO 
#$14 
ROOM 
VALID 
00CA 


ROOMS 
00CA 
#$04 
00C1,X 
GASM 


NXTG 
COMP 


BMI ADJR 


CPX 
BPL 
CPX 
BPL 
LDY 
LDA 
JSR 
JSR 
CMP 
BNE 
LDA 
JMP 
LDY 
LDA 
JSR 
JUMP 
LDA 
JSR 
LDA 
UMP 
LDY 
LDA 
JSR 
JSR 
JSR 
STA 
TXA 
BMI 
LDA 
LDX 
STA 
CMP 
BEQ 
DEC 
BEQ 
LDX 
JSR 
JSR 


#503 
BATM 
#501 
PITM 
#500 
#526 
SCAN 
MOVE 
OOCA 
ADJR 
#526 
LOSE 
#501 
#$3D 
SCAN 
CHNG 
#S4F 
LOSE 
#$65 
LOSE 
#500 
#5B7 
SCAN 
DEBO 
VALID 
00D1 


ROOM 
00D1 
00E0 
00CO,X 
00CB 
WIN 
00E0 
OUT 
00CB 
NEXT 
MOVE 
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DEBOUNCE KEY 

PC PUSHED? 

YES 

AN ADJACENT ROOM? 
UPDATE YOUR ROOM 


IF X=FF, NOT VALID ROOM 
CHECK FOR GAS IN ROOM 
5 POSSIBLE CEXPANSION) 


GASSED!! 

ALL CHECKED? 

NO 

CHECK YOUR NEW 

ROOM FOR HAZARDS... 

NO MATCH, NO HAZARDS 


BATS 
PIT!!! 


MUST HAVE BUMPED WUMPUS 
DISPLAY MESSAGE 

..SEE IF HE MOVES.. 
STILL IN YOUR ROOM? 

NO, YOU'RE O.K. 

HE GOT YOU! 


BAT MESSAGE 


CHANGE YOUR ROOM 
FELL IN PIT! 


GAS IN ROOM! 


PITCH CAN AND SEE.. 
IF YOU GET HIM 
ROOM? 


VALID ROOM? 


IF X=FF, NOT VALID 


CANS OF GAS LEFT 

«1S WUMPUS IN 

ROOM GASSED? 

YES, YOU GOT HIM 
DECREASE CAN COUNT 

GAS IS GONE 

. «MOVE WUMPUS TO AN 
ADJACENT ROOM CFOR HIM) 


03E9 
03EB 
03ED 
03F2 
03F4 
03F6 
03F9 
03FB 
03FD 


0200 
0202 
0204 
0206 
0208 
020A 
020C 
020E 
0210 
0212 
0213 
0215 
0216 
0217 
0219 
021A 
021B 
021C 
021E 
0220 
0223 
0225 


0228 
022A 
022C 
022E 
0231 
- 0234 
0237 
0239 
023B 
023D 


023E 
0240 
0243 
0245 
0247 
024A 
024C 


C5 CA CMP OOCA 
FO BB BEQ 03A8 
4C DE 02 JMP 02DE 
AO 01 LDY #$01 
AQ 80 LDA #$80 
20 00 02 JSR SCAN 
FO F7 BEQ WIN 
AQ 73 OUT LDA #$73 
4C CF 02 JMP. LOSE 
84 DE STY OODE 
85 DD STA O0DD 
AQ 07 LDA #$07 
85 DF STA OODF 
AO 05 LDY #$05 
A2 05 CONT LDX #$05 
B1 DD CHAR LDA CO0DD),Y 
C9 00 CMP #$00 
DO 01 BNE MORE 
60 RTS 
95 E8 STA 00E8,X 
88 MORE DEY 
CA DEX 
10 F3 BPL CHAR 
D8 CLD 
18 CLC 
98 TYA 
65 DF ADC OODF 
85 DC STA 00DC 
20 28 02 JSR 0228 
Au DC LDY OODC 
4C OA 02 JMP CONT 
*XRX DELAY DISPLAY SUBROUTINE 
A2 0A LDX #$0A 
86 DB STX O0ODB 
AQ 52 TIME LDA #$52 
8D 07 17 STA 1707 
20 3E 02 JSR DISP 
2C 07 17 BIT 1707 
10 F8 BPL LITE 
C6 DB DEC 00DB 
DO EF BNE TIME 
60 RTS 
HAR BASIC DISPLAY SUBROUTINE ***% 
AQ 7F LDA #$7F 
8D 41 17 STA PADD 
AO 00 LDY #$00 
A2 09 LDX #$09 
B9 E8 00 SIX LDA 00E8,Y 
84 FC STY OOFC 
20 4E 1F JSR 1F4E 
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DID HE MOVE INTO YOUR ROOM? 
YES 

DISPLAY CANS LEFT MESSAGE 
GREAT& ETC. MESSAGE 


REPEAT 
OUT OF GAS! 


TRANSFER POINTER HIGH 
TRANSFER POINTER LOW 
INIT. SCAN FORWARD 


INIT Y 

INIT X 

GET CHARACTER 
LAST CHARACTER? 
IF NOT, CONTINUE 


STORE IT 
SET UP NEXT CHARACTER 
SET UP NEXT STORE LOC. 
LOOP IF NOT 6TH CHAR, 
BINARY MODE 

PREPARE TO ADD 

GET CHAR. POINTER 
UPDATE FOR 6 NEW CHAR, 
SAVE NEW POINTER . 
DELAY-DISPLAY 

RESTORE POINTER 
CONTINUE REST OF MESSAGE 
SET RATE 

PUT IN DECR. LOC. 

LOAD TIMER 

START TIMER 

JUMP TO DISPLAY SUBR. 
TIMER DONE? 

IF NOT, LOOP 

DECREMENT TIMER 

NOT FINISHED 

GET 6 NEW CHAR. 


CHANGE SEGMENTS.. 

TO OUTPUT 

INIT. RECALL INDEX 
INIT, DIGIT NUMBER 
GET CHARACTER 

SAVE Y 

DISPLAY CHARACTER 


O24F C8 INY SET UP FOR NEXT CHAR, 


0250 CO 06 CPY #$06 6 CHAR. DISPLAYED? 
0252 90 F3 BCC SIX NO 
0254 20 3D 1F JSR 1F3D KEY DOWN? 
0257 60 RTS EXIT 
#8 DEBOUNCE SUBROUTINE *7#25 
0258 20 8C 1E DEBO JSR INIT1 
025B 20 3E 02 JSR DISP WAIT FOR PREVIOUS KEY 
025E Dd F8 BNE DEBO TO BE RELEASED 
0260 20 3E 02 SHOW JSR DISP WAIT FOR NEW KEY TO 
0263 FO FB BEQ SHOW BE DEPRESSED 
0265 20 3E 02 JSR DISP CHECK AGAIN AFTER 
0268 FO F6 BEQ SHOW SLIGHT DELAY 
026A 20 6A 1F JSR GETKEY GET A KEY 
026D C9 15 CMP #$15 A VALID KEY? 
026F 10 E7 BPL DEBO NO 
0271 60 RTS 
#3 RANDOM NUMBER SUBROUTINE *%% 
0272 8A RAND TXA SAVE X REGISTER 
0273 48 PHA 
0274 D8 CLD RANDOM # ROUTINE FROM 
0275 38 SEC J. BUTTERFIELD, KIM 
0276 AS 41 LDA 0041 USER NOTES #1 PAGE 4 
0278 65 44 ADC 0044 
027A 65 45 ADC 0045 
027C 85 40 STA 0040 
027E A2 04 LDX #504 
0280 BS5 40 NXTN LDA 0040,xX 
0282 95 41 STA 0041,X 
0284 CA DEX 
0285 10 F9 BPL NXTN 
0287 85 CO STA 00CO 
0289 68 PLA RETURN X REGISTER’ 
028A AA TAX 
028B AS CO LDA 0O0CcO 
028D 60 RTS 
23438 COMPARE SUBROUTINE ***#%* 
028F A2 04 COMP LDX #$04 COMPARE ROOM IN ACC. 
0291 D5 CB HAZD CMP 0OCB, X WITH EACH HAZARD, 
0293 FO 03 BEQ OUT 
0295 CA DEX 
0296 10 F9 BPL HAZD X ON EXIT SHOWS MATCH 
0298 60 OUT RTS 
#32 MOVE WUMPUS SUBROUTINE 333 
0299 20 72 02 MOVE JSR RAND GET A RANDOM # 
029C 29 OF AND #$0F STRIP TO HEX DIGIT 
029E C9 04 CMP #$04 CHANGE ROOMS 75% 
02A0 30 0D BMI NOCH OF THE TIME 
02A2 20 B2 02 JSR NEXT GET ADJ. ROOMS CTO WUMPUS) 
02A5 AD 06 17 LDA 1706 GET RANDOM #, 0-3 
02A8 29 03 AND #503 
O2AA AA TAX USE AS INDEX 
02AB BS C6 LDA 00C6,xX GET AN ADJ. ROOM 
02AD 85 CB STA OOCB PUT WUMPUS IN IT 
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O02AF 
02B1 


02B2 
02B4 
02B6 
02B8 
02BA 
02BC 
02BE 
02C0 
02C2 
02C4 


02C5 
02C7 
02C9 
02CB 
02CC 
02CE 


O02CF 
02D1 
02D4 
02D6 
02D8 
02DB 


02DE 
02E0 
02E3 
02E5 
02E7 
02E9 
02EC 


Pvaravivd 


NOCH 


LDA 00CB 
RTS 


LOAD NEXT ROOMS SUBROUTINE 


WUMPUS ROOM IN ACC, 


suraseas 
TAT Arad 


A6 CA LDX 00CA YOUR ROOM AS INDEX 
BS 50 LDA 0050,X ... NEXT ROOMS ARE LOADED 
85 C6 STA 00C6 INTO 00C6-00C9 FROM 
BS 60 LDA 0060, X TABLES ... 
85 C7 STA 00C7 
BS 70 LDA 0070,X 
85 C8 STA 00C8 
BS 8a LDA 0080, X 
85 C9 STA 00C9 
60 RTS 
8H CHECK VALID SUBROUTINE 424% 
A2 03 VALID LDX #503 ««. CHECK IF ACC, 
D5 C6 CMP 00C6,X MATCHS 00C6-00C9 ... 
FO 03 BEQ YVAL YES, VALID ROOM 
CA DEX 
10 F9 BPL NXTV 
60 YVAL RTS 
Pipi did LOSE SUBROUTINE Pipi 4 
AO 01 LOSE LDY *$01 ...-DISPLAY REASON LOST, 
20 0G 02 JSR SCAN THEN "YOU LOSE" ... 
AO 00 LDY #500 
AQ AC LDA #SAC 
20 00 02 JSR SCAN 
4C D4 02 JUMP REPT 
bipicidrd GAS LEFT MESSAGE ett 
A4 E0 LDY O0EO GET CANS LEFT 
B9 E7 1F LDA 1FE7,Y GET CONVERSION 
85 9F STA 09F STORE IN MESSAGE 
AO 00 LDY #500 CPAGE ZERO) 
AQ 90 LDA #590 DISPLAY CANS OF GAS 
20 00 02 a JSR SCAN LEFT MESSAGE 
4C 2C 03 JUMP ADJR 
*kkKK Messages ***** 
0000 80 EE DC BE 80 F7 DO F9 80 84 D4& 80 EF 80 CO 80 
0010 F8 BE D4& D4 F9 B8 ED 80 B8 F9 F7 DE 80 F8 CC 80 
0020 FD FF F7 B9 80 00 80 DC DC F3 ED 80 CO 80 FC BE 
0030 B7 F3 F9 DE 80 F7 80 9C BE B7 F3 BE ED 80 80 00 
xkkkk Next Room List ***** 
0050 02 02 00 01 01 00 03 O04 00 06 07 00 09 OA 01 04 
0060 05 03 01 02 03 02 05 06 05 08 09 08 OB OC OB 07 
0070 08 04 03 04 07 06 07 DA 09 OA OF OC OD OE OC OA 
0080 0B OE 05 06 OF 08 09 OF OB OC OD OE OE OF OD OD 
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0090 
00A0 
00B0 


0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
01A0 


0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
02A0 
02B0 
02C0 
02D0 
02E0 
02F0 


0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
03A0 
03B0 
03C0 
03D0 
03E0 
03F0 


KKKEKK Messages KkKKKK 


80 B7 84 ED ED F9 DE 80 CO 80 DC D4 B8 EE 
80 B9 F7 D4 ED 80 B8 F9 Fl F8 80 00 80 EE 
80 B8 DC ED F9 80 00 80 DO DC DC B7 D3 80 


80 9C BE B7 F3 BE ED 80 B9 B8 DC ED F9 00 
84 F8 80 B9 B8 DC ED F9 00 80 FC F7 F8 ED 
B8 DC ED F9 80 00 80 F6 F7 80 F6 F7 80 9C 
F3 BE ED 80 BD DC F8 80 EE DC BE 80 00 80 
F3 F9 DO FC F7 F8 80 ED D4 F7 F8 BY F6 80 
EE EE 84 84 F9 F9 FQ 80 Fl F9 B8 B8 80 84 
F3 84 F8 80 00 80 BD F7 ED 80 84 D4 80 DO 
B7 80 00 80 DC BE F8 80 DC Fl 80 BD F7 ED 
80 80 80 80 80 BD DO F9 F7 F8 CO 80 EE DC 
BD F9 F8 80 F7 80 F6 BE BD 80 Fl DO DC B7 
BE B7 F3 BE ED 80 00 


**xk*k*k Hex Dump - Main Program ***** 
Wumpus 


84 DE 85 DD AQ 07 85 DF AO 05 A2 05 B1 DD 
DO 01 60 95 E8 88 CA 10 F3 D8 18 98 65 DF 
20 28 02 A& DC 4C OA 02 A2 03 86 DB AI 52 
17 20 3E 02 2C 07 17 10 F8 C6 DB DO EF 60 
8D 41 17 AO 00 A2 09 B9 E8 00 84 FC 20 4E 
CO 06 90 F3 20 3D 1F 60 20 8C 1E 20 3E 02 
20 3E 02 FO FB 20 3E 02 FO F6 20 6A 1F C9 
E7 60 8A 48 D8 38 AS 41 65 44 65 45 85 40 
BS 40 95 41 CA 10 F9 85 CO 68 AA AS CO 60 
04 DS CB FO 03 CA 10 F9 60 20 72 02 29 OF 
30 OD 20 B2 02 AD 06 17 29 03 AA BS C6 85 
CB 60 A6é CA BS 50 85 C6 B5 60 85 C7 B5 70 
B5 80 85 C9 60 A2 03 D5 C6 FO 03 CA 10 FY 
01 20 00 02 AD 00 AY AC 20 00 02 4C D4 02 
B9 E7 1F 85 QF AO 00 AI 90 20 00 02 4C 2C 
BE BD 80 F1 DO DC B7 80 9C BE B7 F3 BE ED 


EA EA EA EA EA AQ FF A2 OE 95 Cl CA 10 FB 
85 EO AO 05 10 02 AOD 00 A2 05 20 72 02 29 
CA FO F5 CA 10 F9 99 CA 00 88 10 EC 20 B2 
03 84 El B9 C6 00 20 8F 02 8A 30 17 EO 03 
AQ 19 10 0A EO 01 30 04 AQ OE 10 02 AY 00 
20 00 02 C6 El AY El 10 DA A4 CA BI E7 IF 
A2 03 B4 C6 B9 E7 1F 95 20 CA 10 F6 AO 00 
00 02 20 58 02 C9 14 FO 48 20 C5 02 85 CA 
EB AS CA A2 04 DS Cl FO 33 CA 10 F9 20 8F 
30 9A EO 03 10 17 EO 01 10 1D AO 00 AY 26 
02 20 99 02 C5 CA DO 84 AQ 26 4C CF 02 AD 
3D 20 00 02 4C 16 03 AQ 4F 4C CF 02 AI 65 
02 AO 00 AY B7 20 00 02 20 58 02 20 C5 02 
8A 30 EE A5 D1 A6 EO 95 CO C5 CB FO 15 C6 
1A A6 CB 20 B4 02 20 AS 02 CS CA FO BB 4C 
EA EA AO 01 AQ 80 20 00 02 FO F7 AQ 73 20 


DB of cas: 


BE 
03 


F3 
B9 


S 


DIAGNOSTIC AND 
UTILITY PROGRAMS 





B R A N C | BY JIM BUTTERFIELD 


Load this fully relocatable program anywhere. 
Once it starts, key in the last two digits of 

a branch instruction address; then the last two 
digits of the address to which you are branching; 
and read off the relative branch address. 


For example, to calculate the branch to ADDR near the 
end of this program: hit 26 (from 0026); 20 (to 0020) 
and read F8 on the two right hand digits of the display. 


The program must be stopped with the RS key. 


0000 D8 START CLD 

0001 18 CLC 

0002 AS FA LDA POINTL 
0004 E5 FB SBC POINTH 
0006 85 F9 STA INH 
0008 C6 F9 DEC INH 
OOOA 20 1F 1F JSR SCANDS 
O000D 20 6A 1F JSR GETKEY 
0010 C5 F3 CMP [AST 
0012 FO EC BEQ START 
0014 85 F3 STA LAST 
0016 C9 10 CMP #$10 
0018 BO E6 BCS START 
OO1A OA ASL A 
001B 0A ASL A 

001C OA ASL A 
001D OA ASL A 

O01E A2 04 LDX #4 
0020 OA ADDR ASL A 

0021 26 FA ROL POINTL 
0023 26 FB = ~—=s- ROL POINTH 
0025 CA DEX 

0026 DO F8 BNE ADDR 
0028 FO D6 BEQ START 


Keep in mind that the maximum "reach" of a branch instruction 
is 127 locations forward (7F) or 128 locations backward (80). 
If you want a forward branch, check that the calculated branch 
is in the range 01 to 7F. Similarly, be sure that a backward 
branch produces a value from 80 to FE. In either case, a value 
outside these limits means that your desired branch is out of 
reach. 
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BROWSE -nnvw 


Load BROWSE anywhere in memory - it's fully relocatable - 
start it uv, and presto! It doesn't seem to do anything. 


BROWSE is a mini-Monitor that performs most of the functions 

of the regular KIM monitor; but you'll find it handy for entering 
and proof-reading vrograms. Most of the keys work the same as 
usual; but PC, +, and DA are slightly different. 


When you hit + you go to the next address as usual .. but then 
you keep on going! Great for proofreading a program you've 
just entered. It lets you browse through memory. 


Hit PC and the program steps backwards, so you can look at 

a value you've just passed. All other keys instantly freeze 
the browsing process; you can hit AD or DA to stop ona given 
address, or just enter a new address if you wish. 


Key DA operates a little differently from the regular KIM 

function. To enter data, first set up the address before 

the one you want to change. As you enter the data, BROWSE 
will automatically step forward to the next address - and 

then the next one, and so on. You never need to hit the + 
key during entry; and the display will show the last value 
you have entered. 





0110 D8 START CLD clear decimal mode 
0111 AY 13 LOA 4913 GO key image 

0113 85 FE STA CHAR 

0115 A9 00 LMA 40 value zero.. 

0117 85 FA STA POINTL ..to address pointer 
0119 85 FB STA POINTH 

011B C6 F3 LOOP DEC WAIT main program loop 
011D DO O£F BNE LP1 pause 1 second 
O11F AS FD LDA TMPX up or down? 

0121 FO OA BEQ LPl neither 

0123 10 69 BPL UP 

0125 AS FA LDA POINTL down, decrement 
0127 DO 02 BNE DOWN next page? 

0129 C6 FB DEC POINTH 


012B C6 FA. DOWN DEC POINTL 
012D 2019 1F LP1 JSR SCAND light display 


0130 20 6A 1F JSR GETKEY check keys 

0133 C5 FE CMP CHAR same key as last time? 
0135 FO Eh BEQ LOOP 

0137 85 FE STA CHAR note new key input 
0139 C9 15 CMP #$15 no key? 

013B FO DE BEQ LOOP = yes, skip 

013D A2 00 LDX #0 

013F 86 FD STX TMPX = clear up/down flag 


0141 C9 10 
0143 90 1¢ 


0145 


86 


Fh 


0147 C9 11 
0149 FO 01 


014B 
01)C 
O14E 
0150 
0152 
0154 
0156 
0158 
015A 
015C 
015E 


0161 
0163 
0165 
0167 
0169 
016B 
016D 
O16F 
0171 
017 
0176 
0178 
O17A 
017C 
017D 
O17F 
0180 
0182 
018), 
0185 
0187 
0189 
018A 
018C 


018E 
0191 
0192 
019 


E8 
86 
C9 
DO 
E6 
C9 
DO 
C6 
c9 
DO 
hc 


OA 
OA 
85 
A2 
A 
DO 
C6 
10 
20 
E6 
E6 
Bl 


FF 
12 
02 
FD 
Wy 
02 
FD 
13 
CF 
C8 


1F 


#$10 
NUM 
DIGIT 
#811 
OVER 


CMP 
BCC 
STX 
CMP 
REQ 
INX 
STX 
CMP 


MONE 
#812 
BNE PASS 
INC TMPX 
CMP #$1h 
BN= PASS2 
DEC TMPX 
CMP #$13 
BNE LP1 
JMP GOEXEC 


OVER 


PASS 


PASS2 


numeric? 
yes, branch 


DA? 

yes. leave Xz0 
no, set X=1 

O or 1 into MODE 
+? 

no, skip 

yes. set browse 
PC? 

no, skip 

yes, down-browse 
GO? 

no, loop 

start program 


$ numeric (hex) entry comes here 


NUM ASLA ASLA position digit 
ASLA ASLA to left 
STA TEMP 
LDX #4 bits to move 
LDY MODE AD or DA? 
BNE ADDR branch if AD mode 
DEC DIGIT time to step? 
BPL SAME no, skip 
JSR INCPT yes, step 
INC DIGIT 4«,and restore 
INC DIGIT - Gigit count 
SAME LDA (POINTL),Y get data 
DADA ASL TEMP move a bit.. 
ROL A into data 
STA (POINTL) ,Y 
DEX 
BNE DADA last bit? 
REQ LP1 yes, exit 
ADDR ASLA move bits 
ROL POINTL into address 
ROL POINTH 
DEX 
BNE ADDR 
BEQ LPl 
3 increment address for browsing 
UP JSR INCPT 
TAX 
BPL LP1 
end 
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(AFEDPS 
AGM ( 


AGA td 
pom 3 


Acm 4 


o(DO 0° 


DIRECTORY em 


Ever thought about the best way to organize your programs on tape? 
I used to call the first program on each tape number Ol, the next O02, etce 
Mostly I was afraid of forgetting the ID number and having trouble reading 
it in. Program DIRECTORY (below) fixes up that part of the problem and 
liberates you to choose a better numbering scheme. 


You've got 254 program IDs to choose from «.e. enough for most program 
libraries with some to spare. 


So every program and data file would carry a unique number .o- and if 
you've forgotten what's on a given tape, just run DIRECTORY and get all the 


IDs. 


Another thing that's handy to know is the starting address (SA) of a 
program, expecially if you want to copy it to anotker tape. (Ending add- 
resses are easy ee. just load the program, then look at the contents of 
17ED and 17EE), Well, DIRECTORY shows starting addresses, too. 


The program is fully relocatable, so put it anywhere convenient. 
Start at the first instruction (0000 in the listing). Incidentally, 0001 
= set of this program are functionally identical to the KIM monitor 188C 

ce) ° 


After you start the program, start your audio tape input. When DI- 
RECTORY finds a program, it will display the Start Address (first four 
digits) and the Program ID. Hit any key and it will scan for the next 
program. 


0000 D8 GO CLD 

000l AQ O07 LDA #$07 Directional reg 
‘“ 0003 “Bp 42 17 STA SBD 

0006 20 41 1A SYN JSR RDBIT Sean thru bitsSeece 

0009 46 F9 LSR INH eeshifting new bit 

OOOB O05 F9 ORA INH eeinto left of 

00OD 85 F9 STA INH eebyte INH 

OOOF C9 16 TST CMP #$16 SYNC character? 

0011 DO F3 BNE SYN no, back to bits 

0013 20 2&4 IA JSR RDCHT get a character 

0016 C6 Fg DEC INH count 22 SYNC's 

0018 10 F5 BPL TST 

OO1A C9 2A CMP #$2A then test astk 

o001c DO Fl BNE TST eeor SYNC 

OOlE A2 FD LDX #3FD if asterisk, 

0020 20 F3 19 RD JSR RDBYT stack 3 bytes 

0023 95 FC STA POINTH+1,X into display 

0025 58 INX area 

0026 30 F8 BMI RD 

0028 20 1F 1F SHOW JSR SCANDS eeoand shine 

002B DO D3 BNE GO until keyed 

002D FO FQ BEQ SHOW at's all folks 
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HYPERT APE vom 


0100 
0102 
0105 
0108 
010A 
010C 
010E 
0111 
0113 
0115 
0118 
011A 
011D 
0120 
0123 


How long does it take you to load a full 1K of KIM-1 
memory? Over two minutes? And if you're going for 
memory expansion, how long will it take you to load 
your 8K? Twenty minutes? 


Hold onto your hats. Program HYPERTAPE! will write 
fully compatible tapes ina fraction of the time. 
You can load a full 1K in 21 seconds. 


Fully compatible means this: once you've written 

a tape using HYPERTAPE! you can read it back in using 
the normal KIM-1 program (starting at 1873 as usual). 
And the utilities and daagnostic programs work on this 
super-compressed data (e.g., DIRECTORY and VUTAPE). 


You'll need some memory space for the program, of course. 
If you have memory expansion, there'll be no problem 
finding space, of course. But if you're on the basic 
KIM-1, as Iam, you'll have to "squeeze in" HYPERTAPE! 
along with the programs you're dumping to tape. I try 

to leave page 1 alone usually (the stack can overwrite 
your program due to bugs); so I stage HYPERTAPE! in 

that area. For the convenience of relocation, the 

listing underlines those addresses that will need 
changing. There are also four values needed in page zero 
which you may change to any convenient location. 


For those interested in the theory of the thing, I 
shouldqnention: HYPERTAPE! is not the limit. If you 
wished to abandon KIM-1 monitor compatibility, you 

could continue to speed up tape by a factor of 4 or 5 

times more. Can you imagine reading 1K in four seconds? 
For the moment, however, HYPERTAPE! is plenty fast for me. 


;this program also included in Super-dupe 


A9 AD DUMP LDA #SAD 

8D EC 17 STA VEB 

20 32 19 JSR INTVEB set up sub 
A9 27 LDA #$27 

85 F5 STA GANG flag for SBD 
AS BF LDA #SBF 

8D 43 17 STA PBDD 

A2 64 LDX #$64 

AS 16 LDA #$16 

20 61 O1 JSR HIC 

AS 2A LDA #S2A 

20 88 O] JSR OUTCHT 

AD F9 17 LDA ID 

20 70 O1 JSR OUTBT 

AD F5 17 LDA SAL 
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0126 
0129 
012C 
012F 
0132 
0135 
0138 
013B 
013E 
0141 
0144 
0146 
0148 
C14B 
014E 
0151 
0154 
0157 
0159 
015B 
015E 


0161 
0163 
0164 
0167 
0168 
016A 
016C 


016D 
0170 
0171 
0172 
0173 
0174 
0175 
0178 
0379 
017C 


017D 
017F 
0181 
0182 
0384 
0186 
0188 
018A 
018C 
018E 
0190 
0193 


7D 


7D 


OF 
OA 


02 
07 
30 
07 
F2 
02 
F3 
BE 


19 


01 


01 


01 


JSR 
LDA 
JSR 
DUMPT4 JSR 
JSR 
JSR 
LDA 
CMP 
LDA 
SBC 
BCC 
LDA 
JSR 
LDA 
JSR 
LDA 
EXIT JSR 
LDX 
LDA 
JSR 
JMP 


OUTBTC 
SAH 
OUTBTC 
VEB 
OUTBTC 
INCVEB 
VEB+1 
EAL 
VEB+2 
EAH 
DUMPT4 
#$2F 
OUTCHT 
CHKL 
OUTBT 
CHKH 
OUTBT 
#$02 
#$04 
HIC 
DISPZ 


*subroutines 


HIC STX 
HIC1 PHA 
JSR 
PLA 
DEC 
BNE 
RTS 


OUTBTC JSR 
OUTBT PHA 
LSR 
LSR 
LSR 
LSR 
JSR 
PLA 
JSR 
RTS 


HEXOUT AND 
CMP 
CLC 
BMI 
ADC 
HEX1. ADC 
OUTCHT LDY 
STY 
TRY LDY 
STY 
ZON LDX 
PHA 
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TIC 
OUTCHT 


TIC 
HIC1 


CHKT 


A 
A 
A 
A 
HEXOUT 


HEXOUT 


# SOF 
#S0A 


HEX1 
#$07 
#$ 30 
#$07 
COUNT 
#$02 
TRIB 
NPUL,Y 


0194 2C 
0197 10 
0199 B9 
019C 8D 
019F A5 
01A1 49 
01A3 8D 
01A6 85 


47 
FB 


17 


BF 01 


44 


01A8 CA 


01A9 DO 
O1AB 68 
O1AC C6 
O1AE FO 
01B0 30 


01B2 4A 


01B3 90 
01B5 AO 
01B7 FO 
01B9 C6 
01BB 10 
01BD 60 


O1BE 02 
O1BF C3 


8180- A9 
0110- 17 
0120- 20 
0130- EC 
01 48- 17 
8150- 01 
0160- 18 
0172- 4& 
Z188- OA 
0190- BE 
B1AG- FS 
B1BG- 38 
@1CO- 03 


03 


17 


17 


7E 


ZON1 


SETZ 


ROUT 


;frequency/density controls 


NPUL 
TIMG 


BIT 
BPL 
LDA 
STA 
LDA 
EOR 
STA 
STA 
DEX 
BNE 
PLA 
DEC 
BEQ 
BMI 
LSR 
BCC 
LDY 
BEQ 
DEC 
BPL 
RTS 


-BYT 


-BYTE $C3,$03,$7E 


CLKRDI 
ZON1 
TIMG,Y 
CLK1T 
GANG 
#$80 
SBD 
GANG 


ZON1 


TRIB 
SETZ 
ROUT 
A 

ZON 
#0 
ZON 
COUNT 
TRY 


E $02 


*kkkkk Hex Dump - Hypertape ***** 


ab 
Ae 
70 
17 
ED 
AD 
86 
4A 
18 
BE 
49 
07 
TE 


8D 
64 
01 
20 
F8& 
E& 
Fl 
4A 
38 
61 
88 
4A 


EC 
AY 
AD 
6D 
17 
17 
48 
4A 
G2 
48 
8D 
98 


17 
16 
FS 
G1 

908 
20 
20 
4A 
69 
2c 
4e 
DB 


32 19 
61 @1 
26 6D 


AY 27 
AY 2A 
@1 AD 
AD ED 
20 88 
G2 AI 
C6 Fl 
68 28 
AS 07 
FB B9 
CA DO 
D7 C6 


FS 
88 
17 
CD 
AD 
20 
F7 
01 
Fe 
@1 
68 
10 


Thanks go to Julien Dubé for his help in staging early 
versions of HYPERTAPE! 
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MEMORY TEST +... 


Testing RAM isn't just a question of storing a value and 
then checking it. It's important to test for interference 
between locations. Such tests often involve writing to one 
location and then checking all other locations to see they 
haven't been disturbed; this can be time consuming. 


This program checks memory thoroughly and runs exceptionally 
fast. It is adapted from an algorithm by Knaizuk and Hartmann 
published in 'IFE- Transactions on Comouters', Avril 1977. 


The program first puts value FF in every location under test. 

Then it puts 00 in every third location, after which it tests 

all locations for correctness. The test is repeated twice more 
with the positions of the 00's changed each time. Finally, 

the whole thing is repeated with the FF and 00 values interchanged. 


To run: Set the addresses of the first and last memory pages 
you wish to test into locations 0000 and 0001-respectively. 
Start the program at address 0002; it will halt with a memory 
address onthe display. If no faults were found, the address 
will be one location past the last address tested. Ifa fault 
is found, its address will be displayed. 


Example: To test 0100 to O2FF (pages 01 and 02) in KIM: 

Set 0000 to O01, 0001 to 02, start program at 0002. If memory 
is good, see 0300 (=O02FF +1). Now if you try testing 

0100 to 16FF (0000#01,0001=16) the pY®gram will halt at 

the first bad location - this will be O00 if you haven't 
added memory. 


0000 xx BEGIN xx starting page for test 

OOO1 xx END xx ending page for test 

0002 A9 00 START LDA #0 zero pointers 

ooo) As TAY for low-order 

0005 85 FA STA POINTL addresses; 

0007 85 70 BIGLP STA FLAG =00 first pass, "FF second pass 
0009 A2 02 LDX #2 

OOOB 86 72 STX MOD set 3 tests each pass 

OOOD AS 00 PASS LDA BEGIN set pointer to.. 

OOOF 85 FB STA POINTH ..start of test area 

0011 A6 01 LDX END 

0013 A5 70 LDA FLAG 

0015 49 FF EOR #$FF  # reverse FLAG 

0017 85 71 STA FLIP .."FF first pass. *00 second pass 
0019 91 FA CLEAR STA (POINTL).Y write above FLIP value.. 
001B C8 INY .-into all locations 

OO1C DO FB BNE CLEAR 

OO1E E6 FB INC POINTH 

0020 Ek FB CPX POINTH 

0022 BO FS BCS CLEAR 
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002) A6é 72 
0026 AS 00 
0028 85 FB 
002A AS 70 
002C CA 

002D 10 O 
O02F A2 02 
0031 91 FA 
0033 C8 

003 DO F6 
0036 E6 FB 
0038 AS O1 
003A CS FB 
003C BO EC 


003E AS 00 
0040 85 FB 
0042 A6 72 
OOky AS 71 
0O0h6 CA 

0047 10 Oh 
0049 A2 02 
OO4B AS 70 
OOD D1 FA 
OOmF DO 15 
0051 C8 

0052 DO FO 
005 E6 FB 
0056 AS OL 
0058 cS FB 
005A BO E8 


00SC C6 72 
OOSE 10 AD 
0060 AS 70 
0062 49 FF 
0064 30 Al 
0066 8 FA 


FLIP value in all locations - now change 1 in 3 


FILL 
TOP 


SKIP 


LDX MOD 

LDA BEGIN set pointer... 

STA POINTH ..back to start 
LDA FLAG change value 

DEX 

BPL SKIP skip 2 out of 3 
IDX #2 restore 3-counter 
STA (POINTL),Y change 1 out of 3 
INY 

BNE TOP 

INC POINTH new page 

LDA END have we passed.. 
CMP POINTH ..end of test area? 
Bes FILL nope, keep going 


3 memory set up —- now test it 


POP 


SLIP 


LDA BEGIN set pointer.. 

STA POINTH --back to start 

LDX MOD set up 3-counter 

LDA FLIP test for FLIP value.. 
NEX 22 Out of 3 times.. 
BPL SLIP - or - 

LDX #2 1 out of 3.. 

LDA FLAG test for FLAG value; 
CMP (POINTL).Y here's the test... 
BNE. OUT branch if failed 
INY 

BNE POP 

INC POINTH 

LDA END 

CMP POINTH 

BCS POP 


3 above test OK - ciffmge & repeat 


oe 


OUT 


0068 4C 4F 1C 


RKKKK 


DEC MOD change 1/3 position 

BPL PASS .-& do next third 

LDA FLAG invert. . 

EOR #$FF .-flag for pass two 

BMI BIGLP 

STY POINTL put low order adds to disnvlay 
JMP START --eand exit to KIM 


NN6B 


Hex Dump - Memory Test ***** 


0000 
0010 
0020 
0030 
0040 
0050 
0060 


00 00 AI 00 
FB A6 01 AS 
E4 FB BO F5 
02 91 FA C8 
85 FB A6 72 
15 C8 DO FO 
A5 70 49 FF 


A8 85 FA 85 70 
70 49 FF 85 71 
A6 72 AS 00 85 
DO F6 E6 FB AS 
A5 71 CA 10 04 
E6 FB A5 01 C5 
30 Al 84 FA 4C 
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A2 02 86 72 AS 00 85 
91 FA C8 DO FB E6 FB 
FB A5 70 CA 10 04 A2 
01 C5 FB BO EC A5 00 
A2 02 AS 70 D1 FA DO 
FB BO E8 C6 72 10 AD 
4F 1C 


MINI DIS *”™ 


One day I was single-stepping through a program and not 
being too alert, I kept going after the program ended. 

Then I noticed I was going through instructions not in any 
OP-code table. What was being executed? With a little 
luck I found that many nonexistent codes would duplicate 
others with only one bit changed. I haven't looked into 

it very deeply, but here are two examples: 17 is the same 
as 16 (ASL-Z, PAGE) and FF is the same as FE (INC ABS,X). 


By single-stepping I could determine the number of bytes 

in all instructions, This,worked for all instructions except 
ers BE MS 328 # 6s ,92,B2,D2 and F2,4 which 
blank the display. After filling in the Bytes per Instruction 
table many patterns became obvious. For example, the 
op-code ending with digits 8 and A could be summarized as 
having a bit pattem of xxxxl10x0, where "x" means don't 
care. This covers all possibilities and when a number of 
this form is ANDed with 00001101 (mask all the x bits) the 
result will be 00001000. By doing this for all 0 (illegal), 

1 and 3 byte instructions and having the 2 byte instructions 
"whatever's left over" I had the basis of my semi-disassembler. 
The only odd byte length is that of 20 (JSR) which "should" 
be only 1 byte long. 


Though this is not a full disassembler, it has helped me to 
write several programs, including itself. To relocate the 
program change locations 374-6, 379-B and 38E-390 to jump 
to the appropriate locations. If you have a program in page 
1 or don't want to write on the stack, change 397 and 39A 
to EA (NOP). 


To run the program, store 00 in 17FA and 03 in 17FB. Go 

to the beginning of your program and press "ST". You will 
then see the first instruction displayed. If it is illegal, the 
location and opcode will flash on and off. In that case, press 
"RS". To display the next instruction press ‘Big FTo display 
the current address and opcode press "@O", at any time. To 
backstep press ee] 8 When you have backstepped to the 
beginning of your program, or changed locations 397 and 39A, 
pressing "B" acts like "PC". 


0300 D8 START SED 
0301 A2 FF LDX #$FF INITIALIZE STACK 
0303 9A TXS POINTER 

0304 Ao 00 INIT LDY #$00 CE6-EE)=0 

0306 A2 09 LDX #509 

0308 94 E5 INIT1 STY 00E5,X 

030A CA DEX 

030B DO FB BNE INIT1 

030D £8 INX X=1 
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030E 
0310 
0312 
0314 
0316 
0318 
031A 
031C 
031D 
031F 
0321 
0323 
0325 
0327 
0329 
032B 
032D 
032F 
0330 
0332 
0334 
0336 
0338 
033A 
033D 
033F 
0341 
0343 
0346 
0349 
034B 
034D 
034E 
034F 
0350 
0352 
0354 
0356 
0358 
0359 
035B 
035D 
035E 
0361 
0363 
0364 
0365 
0367 
0368 
036B 
036D 
036E 
0370 
0372 
0374 
0377 
0379 


20 19 1F 
2C 07 17 


A8 

B9 E7 1F 
95 ES 
E8 

68 

29 OF 
A8 

B9 E7 1F 
95 E5 
E8 

E6 EE 
E4 ED 
90 EO 
20 AF 03 
DO FB 
20 AF 03 


LENGTH 


FLASH 


FLASH1 


FLASH2 


1BYTE 
2BYTE 
3BYTE 


CONVRT 


LDA CPOINTL),Y GET OPCODE, FIND LENGTH 
CMP#$20 ANALYZE BIT PATTERNS 
BEQ 3BYTE * %00100000 ; 3 BYTES 

AND #S$9F Xx"! MEANS DON'T CARE 

BEQ 1BYTE %0Xx00000 ; 1 BYTE (20) 
CMP #$92 

BEQ FLASH %1XX10010 ; ILLEGAL (B2,D2) 
TAY STORE TEMPORARILY 
AND #$1D 

CMP #$19 

BEQ 3BYTE - %XXX110X1 ; 3 BYTES (59,B9) 
AND 34 0D 

CMP #508 

BEQ 1BYTE %XXXXXOX0 ; 1 BYTE (D8,4A) 
AND #$0C 

CMP #$0C 

BEQ 3BYTE %XXXX11XX ; 3 BYTES C4C,EE) 
TYA RESTORE 

AND #$8F 

CMP #$02 %0XXX0010 ; ILLEGAL (22,52) 
BNE 2BYTE ALL LEFTOVERS ; 2 BYTES 
INC 00EC FLIP BIT 0 

LDA #$FF LOOP FOR 1/4 SEC. 

STA 1707 

LDA OOEC BLINK ON OR OFF 
AND #501 

BEQ FLASH2 BIT 0=0 ; BLINK OFF 

JSR SCAND BIT 0=1 ; BLINK ON 

BIT 1707 

BMI FLASH 

BPL FLASH1 

INX 

INX 

TXA CENTER CODE 

EOR #807 

STA O0ED 

LDyY #$EE LOOP FOR EACH BYTE 

LDA (POINTL),Y CONVERT AND STORE 
PHA IN E6 - EB 

LSR's 

LSR's 

TAY 

LDA TABLE,Y 

STA 00E5,X 

INX 

PLA 

AND #SO0F 

TAY 

LDA TABLE,Y 

STA OOES,X 

INX 

INC OOEE 

CPX OOED 

BCC CONVRT 


K DOWN JSR DISP DISPLAY UNTIL ALL KEYS 


K UP 


BNE K DOWN _— ARE UP 
JSR DISP DISPLAY AND GET KEY 
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037C 
037F 
0381 
0383 
0384 
0386 
0388 
0389 
038B 
038C 
038E 


0391 
0393 
0395 
0397 
0398 
039A 
039B 
039E 
03A0 
03A2 
03A4 
03A6 
03A8 
03AB 
03AD 
O3AF 
03B1 
03B4 
0386 
03B8 
03BA 
03BD 
03C0 
03C1 
03C3 
03C5 


0300 
0310 
0320 


0330 


0340 
0350 
0360 
0370 
0380 
0390 
03A0 
03B0 
03C0 


20 6A 
C9 OR 
DO 0E 
BA 

EO FF 
FO 20. 
68 

85 FB 
68 

85 FA 
4C 04 
Co OF 
DO OF 
AS FA 
48 
AS 
48 


FB 


06 
F3 
3D 


1F 


03 


00 
1F 


1F 


PLUS? 


STEP 


STEP 1 


PC? 


WI 


DI 


DI 


JSR GETKEY 


B? 
BNE PLUS 
TSX 

CPX #SFF 


BCKSTP 


CMP #S0B 


? 


IS "B" PRESSED? 
NO, BRANCH 


IS STACK EMPTY? 


BEQ WINDOW _ YES, ACT LIKE "PC" 


PLA 

STA OOFB 

PLA 

STA OOFA 
NEWORD JMP INIT 
CMP #S0F 
BNE PC? 
LDA OOFA 
PHA 
LDA 
PHA 
JSR 
DEC 
BEQ 
BNE 
CMP 
BNE 
JSR 
BEQ 
BNE 
LDA 
STA 
LDX 
LDY 
STY 
LDA 
JSR 
INY 
CPY 
BCC 
UMP 


OOFB 


INCPT 
OOEE 
NEWORD 
STEP 1 
#514 

K UP 
SCAND 
K UP 
WINDOW 
#$7F 
PADD 
#508 
#500 
OOFC 
00E6,Y 
1F4E 


NDOW 


SP 


SP 1 


#$06 
DISP1 
1F3D 


PULL FB AND FA 
DISPLAY WORD 


s 


1s"! PRESSED? 
NO, BRANCH 
PUSH FA AND FB 


FIND NEW LOCATION 
DISPLAY WORD 


1S "800 PRESSED? 
NO, GET KEY 
DISPLAY LOCATION 
UNTIL KEY RELEASED 
THEN GET KEY 
SEGMENTS TO OUTPUT 


INITIALIZE 


GET CHARACTER 
DISPLAY CHARACTER ~ 


NEXT CHARACTER 


DONE, KEY DOWN? 


BEERS HEX DUMP MINT Dis. tee 


FF 
FO 
2C 
C9 
03 
85 


00 
OF 
C9 


A2 
FO 
08 


09 
35 
FO 
EC 


94 
C9 
24 
A9 
17 
48 
B9 
FB 
68 
AS 
20 
84 


CA 
FO 
oc 
8D 
EB 
4A 
1F 
AF 
FB 
48 
1F 
B9 


FA 
cg 
98 


DO 
1A 
C9 
07 
10 
4A 


8A 
E7 


C9 
04 
EE 
AY 
1F 


MOVIE vrrersinns 


ANOTHER move program? This one moves anything anywhere ! 
No limit to number of bytes, or locations in memory, or 
overlapping of source and destination. Use it to lift sections 
of code from other programs, close in or open up gaps for 
altering programs, moving programs to another location (use 
Butterfield's RELOCATE to take care of the branch and address 
correction). Locate it wherever you have the®room..- 


Use is straight forward. Old start address goes in D0O,1; 
old end address in D2,3; new start address in D4,5 before 
running the program which starts at 1780, or wherever you 
want to have it in your system. Program uses zero page 
locations DO thru D9 to do the job. 


1780 D8 START CLD 

1781 AO FF LDY #SFF STORE TEST VALUE 
1783 38 SEC 

1784 AS D2 LDA OEAL HOW MANY BYTES? 
1786 £5 DO SBC OSAL TO MOVE? 

1788 85 D8 STA BCL 

178A AS D3 LDA OEAH 

178C E5 Dl SBC OSAH 

178E 85 D9 STA BCH 

1790 18 CLC 

1791 AS D8 LDA BCL ADD THE COUNT TO 
1793 65 D4 ADC NSAL THE NEW START TO 
1795 85 D6 STA NEAL GET A NEW END 

1797. AS D9 LDA BCH 

1799 65 DS ADC NSAH 

179B 85 D7 STA NEAH 

179D E6 D8 INC BCL ADJUST THE BYTE COUNT 
179F E6 D9 INC BCH TO PERMIT ZERO TESTING 
17Al 38 SEC 

17A2 AS D4 LDA NSAL IF NEW LOCATION 
17A4 £5 DO SBC OSAL HIGHER THAN OLD 
17A6 AS DS LDA NSAH CARRY FLAG IS SET 
17A8 E5 Dl SBC OSAH :- 

17AA_ A2 00 LOOP LDX #$00 HIGH POINTER INDEX 
17AC 90 02 BCC MOVE 

17AE A2 02 LDX #502 LOW POINTER INDEX 
17B0 Al DO MOVE LDA OSAL,X MOVE OLD 

17B2 81 D4 STA NSAL, X TO NEW 

17B4 90 14 BCC DOWN 

17B6 C6 D2 DEC OEAL ADJUST UP POINTER, COLD) 
17B8 98 TYA BELOW ZERO? 

17B9 45 D2 EOR OEAL 

17BB DO 02 BNE NO NO, ENOUGH 
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17BD 
17BF 
17C1 
17C2 
17C4 
17C6 
17C8 
17CA 
17CC 
17CE 
17D0 
17D2 
17D4 
17D6 
17D8 
17DA 
17DC 
17DE 


C6 D3 DEC OEAH YES, ADJUST THE HIGH BYTE 
C6 D6 NOT DEC NEAL ADJUST THE OTHER ONE CNEW) 
98 TYA 

45 D6 EOR NEAL NEED HIGH BYTE ADJUSTED? 
DO 02 BNE NEIN NO 

C6 D7 DEC NEAH YES, DO IT 

BO OC NEIN BCS COUNT 

E6 DO DOWN INC OSAL ADJUST "OLD" DOWN POINTER 
DO 02 BNE NYET a» 

E6 Dl INC OSAH AND THE HIGH BYTE IF NEEDED 
E6 D4 NYET INC NSAL AND THE "'NEW'' ONE 

DO 02 BNE COUNT 

E6 DS INC NSAH 

C6 D8 COUNT DEC BCL TICK OFF THE BYTES, 

DO 02 BNE ONE ENOUGH FINGERS? 

C6 Dg DEC BCH USE THE OTHER HAND 

DO CC ONE BNE LOOP "TIL THEY'RE ALL DONE 

00 DONE BRK & BACK TO MONITOR 


P.S. Don't forget to set the IRQ vector for the break 
(KIM - 1C00 at 17FE,FF) 


**kkk*k Hex Dump - Movit ***** 


1780 D8 AO FF 38 AS D2 ES DO 85 D8 AS D3 E5 D1 85 DI 
1790 18 AS D8 65 D4 85 D6 AS D9 65 DS 85 D7 E6 D8 Eb 
17A0 D9 38 A5 D4 E5 DO AS DS E5 D1 A2 00 90 02 A2 02 
17B0 Al DO 81 D4 90 14 C6 D2 98 45 D2 DO 02 Cb D3 Cb 
17CO D6 98 45 D6 DO 02 C6 D7 BO OC E6 DO DO 02 £6 Dl 
17D0 E6 D4 DO 02 E6 D5 C6 D8 DO 02 C6 DY DO CC 00 


Addition: The last address filled can be displayed after the 
program is complete by adding the following code: 

(1) 85 FA between instructions now at 1795 and 1797 

(2) 85 FB between instructions now at 179B and 179D 

(3) replace the break at the end with 4C 4F 1C 
Use Movit to move itself to another location and then again 
to open up the necessary spaces! 
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PLL SET wm 


Having trouble loading from tape, especially on "HYPERTAPE"? Suspect 
the PLL adjustment might be off, but were afraid to adjust it, or didn't 
have a meter or scope handy? Use this program and KIM's built in hardware 
to make the adjustment. Hold the tip of the plug you piug into the tape 
recorder's earphone jack to applications pin #14 and adjust the control 
for O's or combinations of 7's and L's on the display. "L' means the PLL 
TEST line is low and '7"" means it's high. The program generates a signal 
that alternates slightly below and slightly above theone generated by KIM 
at 1A6B. The regular tape input channel is utilized and decoded to con- 
trol the display. 


1780 A9 07 BEGN LDA #07 Set the input 

1782 8D 42 17 STA SBD 

1785 AQ Ol LDA #01 and output ports 

1787 8D 01 17 STA PAO 

178A 85 El STA El Initialize the toggle 
178¢ AQ 7F LDA #7F 

178E 8D 41 17 STA PADD Open display channels 
1791 A2 og MORE LDX #09 Start with the first 
1793 AO O07 LDY #07 digit Light top & right 
1795 2C 42 17 BIT SBD if PLL output 

1798 30 02 BMI SEGS is high 

179A AO 38 LDY #38 otherwise left & bottom 
179¢ 8c 4oO 17 SEGS STY SAD Turn on the segments 
179F 8E 42 17 STX SBD and the digit 

17A2 2c 47 «#2197 DELA BIT CLKRDI Half cycle done? 

17A5 10 FB BPL DELA No, wait for time up 
17A7 E6 E2 INC E2 Count the cycles 

17A9 30 O4F BMI LOTO 128 % cycles, send low tone 
17AB AQ 91 HITO LDA #91 128 % cycles, send hi tone 
17AD DO 03 BNE CLK1 

17AF AQ 93 LOTO LDA #93 

17B1 HA NOP Equalize the branches 
1782 8D 44 17 CLK1 STA CLK1T Set the clock 

17B5 AQ Ol LDA #01 

1787 45 EL EOR El Flip the toggle register 
1789 85 El STA El 

178B 8D OO 17 STA PAO Toggle the output port 
17BE ES INX 

17BF £8 INX Next display digit 

17cO EO 15 CPX #15 Last one? 

17C2 DO CF BNE NEXT No, do next 

17c4 FO CB BEQ MORE Yes, do more 


1780 AJ 07 8D 42 17 AQ 01 8D 01 17 85 El AQ 7F 8D 41 
1790 17 A2 09 AO 07 2C 42 17 30 02 AO 38 8C 40 17 8E 
17A0 42 17 2C 47 17 10 FB E6 E2 30 04 AQ 91 DO 03 AQ 
1780 93 EA 8D 44 17 AQ 01 45 El 85 El 8D 00 17 E8 E8 
17CO EO 15 DO CF FO CB 


RECOCATE ee 


Ever long for an assembler? Remember when you wrote that 300 byte 
program = and discovered that you'd forgotten one vital instruction in the 
middle? And to make room, you'd have to change all those branches, all 
those addresseseee Or the program with that neat piece of coding in it, th:° 
you Suddenly need to remove (say, to change it to a subroutine)...but if 
you do, you'll have to fill all that empty space with NOPs? It's enough 
to make a grown programmer cryeee 


Dry those tears. Program RELOCATE will fix up all those addresses 
and branches for you, whether you're opening out a program to fit in an 
extra instruction, closing up space you don't need, or just moving the whole 
thing someplace else. 


RELOCATE doesn't move the data. It just fixes up the addresses before 
you make the move. It won't touch zero page addresses; you'll want them 
to stay the same. And be careful: it won't warn you if a branch instruc- 
tion goes out of range. 


You'll have to give RELOCATE a lot of information about your program: 


(1) Where your program starts. This is the first instruction in 
your whole program (including the part that doesn't move). 
RELOCATE has to look through your whole program, instruction 
by instruction, correcting addresses and branches where neces~ 
sary. Be’sure your program is a continuous series of instruc~ 
tions (don't mix data in; RELOCATE will take a data value of 
10 as a BPL instruction and try to correct the branch address), 
and place a dud instruction (FF) behind your last program in- 
struction. This tells RELOCATE where to stop. 


Place the program start address in locations HA and EB, low 
order first as usual. Don't forget the FF behind the last 
instruction; it doesn't matter if you temporarily wipe out a 
byte of data - you can always put it back later. 


(2) Where relocation starts, this is the first address in your 
program that you want to move. If you're moving the whole 
program, it will be the same as the program start address, 
above. This address is called the boundary. 


Place the boundary address in locations EC and ED, low order 
first. 


(3) How far you will want to relocate information above the bound= 
ary. This value is called the increment. For example, if you 
want to open up three more locations in your program, the in- 
crement will be 0003. If you want to close up four addresses, 
the increment will be FFFC (effectively, a negative number). 


Place the increment value in locations E8 and E9, low order 
first. 
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(4) A page limit, above which relocation should be disabled. For 
example, if you're working on a program in the 0200 to O3FF 
range, your program might also address a timer or I/O regist- 
ers, and might call subroutines in the monitor. You don't 
want these addresses relocated, even though they are above the 
boundary! So your page limit would be 17, since these addresses 
are all over 1700. 


On the other hand, if you have memory expansion and your program 
is at address 2000 and up, your page limit will need to be much 
higher. You'd normally set the page limit to FF, the highest 
page in memory. 


Place the page limit in location E7?. 


Now you're ready to go. Set RELOCATE's start address, hit go - and 
ZAP!<your addresses are fixed up. 


After the run, it's a good idea to check the address now in OOKA and 
OOEB = it should point at the FF at the end of your program, confirming 
that the run went OK. 


Now you can move the program. If you have lots of memory to spare, 
you can write a general MOVE program and link it in to RELOCATE, so as to 
do the whole job in one shot. 


But if, like me, you're memory-deprived, you'll likely want to run- 
RELOCATE first, and then load in a little dustom-written program to do 
the actual moving. The program will vary depending on which way you want 
to move, how far, and how much memory is to be moved. In a pinch, you can 
use the FF option of the cassette input program to move your program. 


Last note: the program terminates with a BRK instruction. Be sure 
your interrupt vector (at 17FE and 17FF) is set to KIM address 1C00 so 
that you get a valid “halt". 

RELOCATE Jim Butterfield 


; following addresses must be initialized 
3; by user prior to run 


OOE?7 PAGLIM *=*+1] limit above which kill relocn 

OOE8 ADJST *=*+2 adjustment distance (signed) 

OOEA POINT *=*+2 start of program 

OQOEC BOUND *=*+2 lower boundary for adjustment 
} Main program starts here 

0110 D8 START CLD 

0111 AO 0O LDY #0 

0113 Bl FA LDA (POINT) ,Y get op code 

0115 a& TAY +cache in Y 

0116 A2 07 LDX #7 

0118 98 IOOP TYA restore op code 

0119 3D 8E Ol AND TAB1-1,X remove unwanted bits 

011C 5D 95 Ol EOR TAB2-1,X & test the rest 

OlLF FO 03 BEQ FOUND 
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O121 CA 
0122 DO F4 


0124 BC 9D O1 


0127 30 OD 
0129 FO 22 
012B E6 BA 
012D DO 02 
012F E6 EB 
0131 88 

0132 DO F? 
0134 FO DA 


0136 ¢c8 
0137 30 D9 
0139 Cc8& 
O13A Bl BA 
O13C AA 
0130 ¢c8 
O13E Bl EA 
0140 20 79 
0143 91 EA 
0145 88 
0146 8a 
0147 91 EA 
0149 AO 03 
014B 10 DE 


o14D c8 
O14E AG 
0150 A5 
0152 20 
0155 86 
0157 A2 
0159 Bl 
015B 18 
015C 69 02 
O15E 30 O1 
0160 E38 
0161 86 
0163 18 
0164 65 
0166 AA 
0167 AS E3 
0169 65 EB 
016B 20 79 
O16E CA 
O16F CA 
0170 8A 
0171 38 
0172 ES 
0174 91 
0176 C8 
0177 10 B2 


SAISSHEE 


E3 


EA 


EO 
EA 


01 


O1 


ol 


DEX on to the next test 
BNE LOOP eooif any 

FOUND LDY TAB3,X length or flag 
BMI TRIP triple length? 
BEQ BRAN branch? 

SKIP INC POINT mving right along.. 
BNE INEX eeto next op code 
INC POINT+1 

INEX DEY 
BNE SKIP 
BEQ START 

; length 3 or illegal 

TRIP INY 
BMI START+2 illegal/end to BRK halt 
INY set Y tol 
LDA (POINT) ,Y lo-order operand 
TAX eeeinto X reg 
INY Y=2 
LDA (POINT) ,¥ hi-order operand 
JSR ADJUST change address, maybe 
STA (POINT) ,¥ eeeand put it back 
DEY Y=1 
TXA 
STA (POINT) ,Y eeealso hi-order-. 
LDY #3 Y¥=3 
BPL SKIP 

$; branch: check "to" and "from" address 

BRAN INY Y=1 
LDX POINT "from" addrs lo-order 
LDA POINT+1 eoe& hi-order 
JSR ADJUST change, maybe 
STX ALOC save lo-order only 
LDX #$FF flag for "back" branches 
LDA (POINT) ,Y get relative branch 
CLC 
ADC #2 adjust the offset 
BMI OVER backwards branch? 
INX nope 

OVER STX LIMIT 
CLC 
ADC POINT calculate "to" lo~order 
TAX eceeand put in X : 
LDA LIMIT 00 or FF 
ADC POINT+1 "to" hi-order 
JSR ADJUST change, maybe 
DEX readjust the offset 
DEX 
TXA 
SEC 
SBC ALOC recalculate relative branch 
STA (POINT) ,Y and re=insert 
INY Y=2 
BPL SKIP 
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0179 C5 E7 ADJUST CMP PAGLIM 
017B BO 11 BCS OUT too high? 
017D C5 ED CMP BOUND+1 
017F DO 02 BNE TES2 hi-order? 
0181 E4 EC CPX BOUND lo-order? 
0183 90 09 TES2 BCC OUT too low? 
0185 48 PHA stack hi-order 
0186 8A TXA 
0187 18 CLC 
0188 65 58 ADC ADJUST adjust lo-order 
O18A AA TAX 
018B 68 PLA unstack hi-order 
018C 65 E9 ADC ADJST+1 and adjust 
018E 60 our RTS 
3; tables for op-code indentification 
018F OC 1F OD TABL BYTE $0C,$1F,$0D, $87, $1F, $FF, $03 
0192 87 1F FF 
0195 03 
0196 oc 19 08 TAB2 .BYTE $OC , $19, $08, $00, $10, $20, $03 
0199 00 10 20 
019C 03 
019D 02 FF FF TAB3 BYTE $02, $FF,$FF,%01,$01, $00, $FF, $FE 
01A0 01 O01 OO 
O1A3 FF FE 
$ end 


3 examine address and adjust, maybe 


Credit for the concept of RELOCATE goes to Stan Ockers, who insisted 
that it was badly needed, and maintained despite my misgivings that it 
should be quite straightforward to program. He was right on both counts. 


*k*k**k Hex Dump - Relocate ***** 


Or 2 3 5 6 7 8&8 YF A &B C DF 

G118- D8 AG BO Bl A8 A2 67 98 3D BE @1 SD 95 O1 FO 
0120- @3 CA DO F4 BC 9D @1 36 OD FO 22 E6 EA DO B2 E6 
0130- EB 88 DO F7 FO DA C8 30 D9 C8 B1 EA AA C8 BI! EA 
@140- 20 79 61 91 EA 88 8A 91 EA AS 23 10 DE C8 A6 EA 
@150- AS EB 26 79 O1 86 E@ A2 FF BI EA 18 69 G2 36 Bl 
81608- E8 86 E3 18 65 EA AA AS E3 65 EB 20 79 O61 CA CA 
0170- 8A 38 ES E® 91 EA C8 10 B2 CS E7 BO 11 CS ED DO 
0180- @2 E4 EC 98 B69 48 BA 18 65 ES AA 68 65 ED 60 BC 
81968- 1F OD 87 1F FF 03 BC 19 O8 BB 18 20 O3 O2 FF FF 
@1AG- @1 @1 O@@ FF FE 
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USING PROGRAM RELOCATE - an example. Jim Butterfield 


Program RELOCATE is important, and powerful. But it takes 
a little getting used to. Let's run through an example. 
Follow along on your KIM, if you like. 


Suppose we'd like to change program LUNAR LANDER. 

When you run out of fuel on the lander, you get no 
special indication, except that you start falling 

very quickly. Let's say we want to make this minor 
changes if you run out of fuel, the display flips 

~over to Fuel mode, so that the pilot will see immediately. 


Digging through the program reveals two things: (i) you 
go to fuel mode by storing 00 into MODE (address E1); 
and, (ii) the out-of-fuel part of the program is located 
at O24C to 0257. So if we can insert a program to store 
zero in mode as part of our out-of-fuel, we should have 
accomplished our goal. Closer inspection reveals that 
we can accomplish this by inserting 85 E1 (STA MODE) 
right behind the LDA instruction at 024C. 


Let's do it. 


First, we must store value FF behind the last instruction 
of our program. So put FF into address 02CC. That wipes 
out the value 45, but we'll put it back later. 


Now, we put our program start address (0200) into addresses 
EA and EB. Low order first, so 00 goes into address OOEA 
and 02 goes into OOEB. 


Next, the part that we want to move. Since we want to 
insert a new instruction at address O24E, we must move 
the program up at this point to make space. In goes 
the address, low order first: 4E into address OOEC and 
O02 into address OOED. 


The page limit should be set to 17, since we don't want 
the addresses of the KIM subroutines to be changed 
(SCANDS, GETKEY, etc.). So put 17 into address OOE7. 


Finally, how far do we want to move the program to make 
room? Two bytes, of course. Put 02 and 00 into 
addresses OOE8 and OOE9 respectively. 


We're ready to go. Be sure your vectors have been set 
properly (at addresses 17FA to 17FF). Then set address 
0110, the start address of RELOCATE, and press GO. 


The display will stop showing 0114 EA, confirming that 
RELOCATE ran properly. Now check to see the whole program 
was properly converted by looking at the addresses OOEA-B. 
We put address 0200 there, remember? Now we'll see 
address 02CC stored there - the address of the value FF 

we stored to signal end of program. 


Go back to O02CC, where we stored FF, and restore the 
original value of 45. 
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We've completed part I. The addresses have been corrected 
for the move. Let's go on to part II and actually move 
the program fo make room. 


My favorite method is to use a tiny program to do the 
move itself. For moving 1 to 256 bytes to a higher address, 


I use the program: A2 nn BD xx xx 9D tt tt CA DO F7 00. 


In the above, nn is the number of bytes to be moved, and 
Rxxx and tttt are the from and to addresses of the data, 
minus one. Since we want to move about 160 bytes from 

a block starting at O24E to a block starting at 0250, 


we code like this: 45 ay pp up o2 9D 4F 02 CA DO F7 00. 


This little program can be fitted in anywhere. Let's 
put it in memory starting at address 0040. The final 
byte, value 00, should end up in OO4B. Now back to 
0O40, hit GO... and your data/program is moved over. 
(The tiny program should stop showing address OO4D). 


There's nothing left to do but actually put the extra 
instruction (85 E1) into the program at O24E and O24F. 


Now run the program. Try deliberately running out of 
fuel and see if the display flips over to fuel mode 
automatically when you run out. 


If you have followed the above successfully with your 
KIM, it all seems very easy. It's hard to realize that 
program RELOCATE has done so much work. But if you 
check, you'll find the following addresses have been 
automatically changed: 


0203 O24B 0256/8 0263/5 0265/7 02A5/7 


Do you think that you'd have caught every one of 
those addresses if you'd tried to do the job manually? 
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AY 


0200 
0203 
0205 
0207 
020A 
020C 
020E 
0211 
0213 
0216 
0218 
021A 
0218 
021D 
021F 
0221 
0223 


0 R by Jim Pollock 


This program will take any given block of data and 
arrange it in numerical sequence, whether the data is 
hex or BCD, or both. Since the program uses relative 
branch addressing, it can be located anywhere in memory 
without modification. 


The instruction that determines whether data is arranged 
in ascending or descending order is O11F, (BO - 
descending order, 90 - ascending order). 


This is a bubble sort. The top item is compared with 
succeeding items and if a larger number is found, they 
are swapped. The larger item (now at the top) is then 
used for comparisons as the process continues through 
the list. After one complete pass, the largest number 
will have "bubbled" to the top. The whole process is 
repeated using the second item to start, then again 
starting with the third item. Eventually the whole list 
will be sorted in sequence. 


17F5 START LO 

17F6 START HIGH 

17F7 END LO 

17F8 END HI CNOTE: ENDING ADDRESS IS ONE PAST LAST ITEM) 
AD F5 17 SORT LDA 17F5 TRANSFER START POINTER 

85 E8 STA 00E8 TO ZERO PAGE 

85 EA STA OOEA 

AD F6 17 LDA 17F6 

85 E9 STA 00E9 

85 EB STA OO0EB 

AD F7 17 LDA 17F7 TRANSFER END POINTER 

85 EC STA OOEC 

AD F8 17 LDA 17F8 

85 ED STA OOED 

A2 00 LDX #$00 INDEX TO ZERO CSTAYS THERE) 
D8 CLD 

Al E8 GET LDA COOE8,X) GET DATA INDIRECT 00E8 

Cl EA CMP COOEA,X) GREATER THAN INDIR. OOEA? 
BO OC BCS INCN NO, INCR, POINTER OOEA 
Al E8 SWAP LDA C00E8,X) SWAP DATA IN POINTER 

85 E7 STA 00E7 LOCAT IONS 
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0225 
0227 
0229 
022B 
022D 
022F 
0231 
0233 
0235 
0237 
0239 
023B 
023D 
023F 
0241 
0243 
0245 
0247 
0249 
0248 
024D 
O24F 
0251 
0253 
0255 
0257 
0259 
025B 


0200 
0210 
0220 
0230 
0240 
0250 


17 


02 


EC 


F5 
85 
Al 
E6 


DO 


LDA COOEA, X) 
STA (00E8, xX) 
LDA 00E7 
STA COOEA, xX) 
INC O0EA 
BNE LASTN 
INC 00EB 
LDA O0EA 
CMP OOEC 
BNE GET 

LDA 00ED 
CMP OOEB 
BNE GET 

INC OOE8 

BNE OVER 
INC 00E9 
LDA 00E8 
STA OOEA 
LDA O0E9 
STA OOEB 
LDA O0EA 

CMP OOEC 

BNE GET 

LDA 00E9 
STA 00EB 

CMP OOED 
BNE GET 

JUMP 1C4F 


INCN 


LAS TN 


OVER 


1c 


kkkKK Hex Dump - 


SET UP NEXT COMPARISON 
NO PAGE CHANGE 

PAGE CHANGE 

CK FOR LAST ITEM IN PASS 


NOT YET 
IS THIS LAST PASS/LOOP? 


NO 
NO PAGE CHANGE 


PAGE CHANGE 
INIT. VALUE FOR NEXT PASS 


LAST ITEM IN LIST? 
NO, NOT YET 
LAST PAGE? 


NO 
BACK TO KIM, DONE 


Sort **#*** 


17 85 E8 85 EA AD F6 17 85 E9 85 EB AD F7 


EC AD F8 17 85 ED A2 00 
E8 85 E7 Al EA 81 E8 AS 
EB A5 EA C5 EC DO E2 AS 
02 E6 E9 AS E8 85 EA AS 
C8 A5 E9 85 EB C5 ED DO 
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D8 Al E8 Cl EA BO 
E7 81 EA E6 EA DO 
ED C5 EB DO DC E6 
E9 85 EB AS EA C5 
CO 4C 4F IC 


SUPER- DUPE 


by Jim Butterfield 


SUPER-DUPE is handy: it lets you duplicate a complete tape 
containing many programs in jig time. SUPER-DUPE is 
versatile: it will write various tape densities, from 
regular to Hypertape. SUPER-DUPE is mu!ti~purpose: if you 
don't want to duplicate programs, you can use it for 
cataloguing tapes, or for writing Hypertape. 


The maximum size program that SUPER-DUPE can copy is 
dependent on the amount of memory of the KIM system. The 
basic 1K system can copy programs up to 512 bytes long. 


For duplicating tape, it's useful to have two tape 
recorders: one for reading the old tape, one for writing 
the new. They are connected in the usual way, at TAPE IN 
and TAPE OUT. Pause controls are handy. 


SUPER-DUPE starts at address 0000. Hit GO and start the 
input tape. When a program has been read from the input 
tape, the display will light, showing the start address of 
the program and its ID. If you don't want to copy this 
program, hit 0. Otherwise, stop the input tape; start the 
output tape (on RECORD); then hit 1 for Hypertape, 6 for 
regular tape, or any intermediate number. The output tape 
will be written; upon completion, the display will light 
showing 0000 A2. Stop the output tape. Now hit GO to copy 
the next program. 


SUPER-DUPE contains a Hypertape writing program which can 
be used independently; this starts at address 0100. 


Basically, SUPER-DUPE saves you the work of setting up the 
SA, EA, and ID for each program, and the trouble of 
arranging the Hypertape writer into a part of memory 
suitable for each program. 


0000 A2 03 START LDX #3 

0002 BS E2 LOOP LDA POINT2,X 
0004 95 EO STA POINT,X 
0006 CA DEX 

0007 10 F9 BPL LOOP 
0009 AI 00 LDA #0 

O000B 85 F6 STA CHKSUM 
000D 85 F7 STA CHKHI 
OOOF D8 CLD 

0010 AY 07 LDA #7 

0012 8D 42 17 STA SBD 
0015 20 41 1A SYN JSR RDBIT 
0018 46 F9 LSR INH 
O0JA 05 FI ORA INH 
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001C 
OOIE 
0020 
0022 
0025 
0027 
0029 
002B 
002D 
0030 
0032 
0034 
0037 
0039 
003C 
003D 
003F 
0041 
0044 
0046 
0048 
004B 
004D 
004E 
0050 
0052 
0055 
0057 
0059 
005B 
005D 
0060 
0062 
0064 
0067 
0069 
005B 
006E 
0070 
0073 
0075 
0076 
0078 
007B 
007D 
0080 
0082 
0084 
0086 
0089 
008B 


1A 


19 


19 


1F 


1A 


1A 


fe 


19 


19 


lF 


01 


01 


17 


TST 


ADDR 


BYTE 
DUBL 


OVER 
WIND 


ELNK 
FLSH 


139 


STA 
CMP 
BNE 
JSR 
DEC 
BPL 
CMP 
BNE 
JSR 
STA 
LDX 
JSR 
STA 
JSR 
INX 
BMI 
LDX 
JSR 
CMP 
BEQ 
JSR 
BNE 
DEX 
BNE 
STA 
JSR 
INC 
BNE 
INC 
BNE 
JSR 
CMP 
BNE 
JSR 
CMP 
BNE 
JSR 
BEQ 
JSR 
STA 
ASL 
BEQ 
STA 
ADC 
STA 
LDA 
STA 
LDA 
STA 
LDX 
LDA 


INH 

#$16 sync? 
SYN 

RDCHT 

INH 

TST 

#S2A 

TST 

RDBYT 

INH 

#SFE neg 2 
RDBYT 
POINTH+1,X 
CHK 


ADDR 

#2 

RDCHT 

#S2F eot? 
WIND 

PACKT 

ELNK error? 


DUBL 

(POINT, X) 

CHK 

POINT 

OVER 

POINT+1 

BYTE 

RDBYT 

CHKHI 

ELNK error? 
RDBYT 

CHKSUM 

START (or 65?) 
SCANDS 

FLSH display SA,ID 
GETKEY 

GANG 

A 

START 

NPUL 

GANG 

TIMG+1 

#$27 register mask 
GANG 

#SBF 

PBDD 

#$64 

#$16 sync 


008D 
008F 
0091. 
0094 
0096 
0099 
009B 
009E 
00A0 
00A3 
00A5 
00A8 
OOAA 
0OAC 
OOAF 
00B1 
00B3 
0OB5 
00B7 
00B9 
0OBB 
00BD 
OOBF 
00cl 
00C4 
00C6 
00c9 
00CB 


00D0 


00E2 


G6280- 
06108- 
0B20- 
0030- 
OB40- 
O0O5a- 
0068- 
O0278- 
O0880- 
0296- 
OBAG- 
BZBO- 
OOCO- 
QdD0- 
OOEOG- 


REMEMBER: You must also include HYPERTAPE! (page 119). 


kkkkkk Hex Dump 


Ae 
A9 
DO 
85 
02 
81 
cS 
20 
F5 
16 
20 
E2 
2F 
4C 


01 
01 
01 
0). 
01 


01 


01 
0) 
01. 
19 


00 


02 


DATA 


SAMP 


E2 
42 
24 


02 


95 
17 


80 


LDX 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDY 
LDA 
JSR 
INC 
BNE 
INC 
LDA 
CMP 
LDA 
SBC 
BCC 
LDA 
JSR 
LDA 
JSR 
LDA 
JMP 


JMP 


#S$64 
#$16 
HIC 
#$2A 
OUTCHT 
INH 
OUTBT 
POINTL 
OUTBT 
POINTH 
OUTBT 
#0 
(POINT2) 
OUTBT 
POINT2 
SAMP 


send 100 
sync 


start char 
write ID 


Start adds 


.¥ 
write data 


next addrs 


POINT2+]. 


POINT2 
POINT 
POINT2+1 
POINT+1 
DATA 
#$2F 
OUTCHT 
CHKHI 
OUTBT 
CHKSUM 
EXIT 


LOADT9 


more data? 
eot 


checksum 


FFFF option 


data area; set as desired 


Super = Dupe kkkkekek 


CA 16 FO 


26 41 1A 46 
C6 FO 10 FS 


A9 @@ &S5 F6 85 
F9 @5 FO 85 FI 
C9 2A DO FI 20 
20 91 IF EB 38 
6@ 1A D@ IC CA 


G2 
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VERIFY TAPE ......- 


Do you want to verify the cassette tape you just recorded before the 
information is lost? Then follow this simple procedure: 


1. Manually verify that the starting address ($17F5, $17F6), the 
ending address ($17F7, $17F8) and the block identification 
($17F9) locations are correct in memory. 


2. Enter zeros ($00) into CHKL ($17E7) and CHKH ($1758). 


3. Enter the following routine: 


17EC CD OO OO VEB cmp START 
17EF DO 03 bne failed 
17Fl 4¢ OF 19 jmp LOAD12 


17F4 4C 29 19 failed jmp LOADT9 


4, Rewind the tape, enter address $188C, press GO and playback 
the tape. If the tape compares, the LEDs will come back on 
with address $0000. If there is a discrepancy between memory 
and the tape, the LEDs will come on with address $FFIT. 


YU = TAPE vce 


Program VUTAPE lets you actually see the contents of a KIM format 
tape as it's going by. It shows the data going by very quickly, because 
of the tape speed..but you can at least "sense" the kind of material on 
the tape. 


In case of tape troubles, this should give you a hint as to the area 
of your problem: nothing? noise? dropouts? And you can prepare a test 
tape (see below) to check out the tape quality and your recorder. The 
test tape will also help you establish the best settings for your volume 
and tone controls. 


Perhaps VUTAPE's most useful function, though, is to give youa 
"feeling" for how data is stored on tape. You can actually watch the 
processor trying to synchronize into the bit stream. Once it's synehed, 
you'll see the characters rolling off the tape...until an END or illegal 
character drops you back into the sync mode again. It's educational to 
watche And since the program is fairly short, you should be able to trace 
out just how the processor tracks the input tape. 


VUTAPE starts at location 0000 and is fully relocatable (so you can 
load it anyplace it fits). 
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KIM UTILITY: VUTAPE 


0000 D8 START CLD 

00Ol AQ 7F LDA #$7F 

0003 8D 41 17 STA PADD set display dir reg 
0006 AQ 13 SYN LDA #$13 eewindow 6 and tape in 
0008 85 EO STA POINT and keep pointer 

OOOA 8D 42 17 STA SBD 

OOOD 20 41 IA JSR RDBIT get a bit and 

0010 46 FS LSR INH eeSlip it into 

0012 O05 F9 ORA INH eethe right-hand 

0014 85 F9 STA INH eeSide: 

0016 8D 40 17 STA SAD show bit flow on display 
0019 C9 16 TST CMP #$16 eolS it a SYNC? 

00O1B DO 2&9 BNE SYN nope, keep ‘em rolling 
001D 20 24 ila JSR RDCHT yup, start grabbing 
0020 C9 2A CMP #$2A 20S bits at a time and.. 
0022 DO F5 BNE TST eeif it's not an "*",, 
0024 AQ OO STREAM LDA #$00 eethen start showing 
0026 8D E59 17 STA SAVX eecharacters 1 at a time 
0029 20 24 1A JSR RDCHT 

002G 20 OO 1A JSR PACKT eeconverting to hexadec.. 
O0O2F DO D5 BNE SYN oeif legal 

0031 A6 £0 LDX POINT 

0033 58 INX 

0034 £E8 INX Move along to nextee 
0035 EO 15 CPX #$15 -edisplay position 

0037 DO 02 BNE OVER (If last digit,.. 

0039 A2 09 LDX #809 eereset to first) 

003B 86 EO OVER STX POINT 

003D 8E 42 197 STX SBD 

OO4O AA TAX change character read 
0041 BD £7 I1F LDA TABLE,X eeto segments and.. 
0044 8D 40 17 STA SAD send to the display 
0047 DO DB BNE STREAM unconditional jump 


Checking Out Tapes/Recorders 


Make a test tape containing an endless stream of SYNC characters 
with the following program: 


0050 AO BF GO LDY #$BF directional.. 
0052 «8C (43:«217 STY PBOD ee registers 
0055 AQ 16 LP LDA #$16 SYNC 

0057 20 7A 19 JST OUTCH eee0ut to tape 
QO5A DO Fg BNE LP 


Now use the program VUTAPE. The display should show a steady 
synchronization pattern consisting of segmentsb,c, and e on the right 
hand LED. Try playing with your controls and see over what range the 
pattern stays locked in. The wider the range, the better your cassette/ 
recorder. 
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EXPANDING YOUR KIM 





EXPANDING YOUR KIM 


Games and diversions using the keyboard and display are fine. 
Programming in assembly language can even be a lot of fun, 
once you get over the first few hurdles. But, sooner or later 
you are going to get the urge to have your KIM act like the 

"big machines". What do you have to add on? How much will 
it cost? How much trouble is it going to be? Let's look at 

a few of the options and you can decide for yourself. 


Memory Expansion 


If you only had more memory, you could do anything, right? 
Well, not exactly, but let's see what's involved in adding 
memory. 


Computer buffs abreviate a thousand memory locations, more 
or less, with the letter K. Your KIM-1 has a 1K block of RAM 
and 2K of ROM. Provision is also built into the KIM-1 for 
easily adding an additional 4K of memory. 


4K Expansion 


If you want to add only 4K of memory, it's not especially 
difficult. An article in Kilobaud #4, (April '77), gives 
instructions for adding one of the lower priced 4K RAM kits. 

It is primarily a matter of connecting wires between the 
expansion connector on your KIM and the new board. Depending 
on the size of your present power supply, an additional supply 
may be required for the new board. 


Further Expansion 


Adding more than 4K of memory is a bit more difficult. Part 

of the problem has to do with address decoding. The expansion 

connector is essentially an extension of the main arteries of 

the computer, the address and data busses. These carty signals 
between the CPU and memory. The data bus carries information 

to or from a me mory location specified by the address bus. 


The "Central Processing Unit"' (CPU), on the KIM has the 
potential of addressing 64K however, so you can see that we 
have barely begun to scratch the surface. 


Decoding 


The complete address bus isn't available to each memory chip 
because there are just too many lines and not enough pins on 
the chips. Instead , there is some extra circuitry which looks 
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at the entire address bus and determines which block, 
(usually 1K blocks), of memory should be allowed to function. 
This is called decoding circuitry. Sub-addressing within 
blocks is handled by the lower address lines which are 
connected to all chips. 


Decoding sufficient to select one of four 1K blocks already 
exists on the KIM and is brought out to the expansion connector. 
If you add more than 4K of memory, additional decoding will 

be required. Usually this is built into the memory board. 


Buffering 


If you start adding too many chips to the address and data 
busses, the extra circuits begin to "load down" the bus and 
cause it to not function properly. Additional boards are 
sometimes isolated from the main busses with circuits 
called "buffers" which prevent this from happening. Some 
memory boards have buffers built in. 


Speed 


Another problem you should be aware of has to do with how fast 
the CPU runs and how fast memory chips respond. Some CPU's 
have a wait state so that if the memory is a little slow in 
responding to entry or retrevial of information, the CPU can 
wait for it. The 6502 processor in KIM doesn't have this 
feature. This means that the memory used has to be fast enough 
to work with the processor. $4 450 n5 


What Board ? 


We see then that memory expansion can get a little complicated. 
Further details are given in sections 3.2 and 6.1 of the Kim 
User's Manual. Perhaps the easiest way to get around these 
problems is to buy an assembled board made especially for the 
KIM. All decoding, buffering etc. should already have been 
taken care of in this case. 


If you build from a kit, there are many solder connections that 
are very close to each other; it's easy to make mistakes. Kit 
or assembled board however, you should follow the instructions 
of someone who has already done it. 


What does it cost? 


Here's the good part! Memory prices have been dropping and 
are continuing to drop. Recently boards have been coming out 
using 4K memory chips which have more bits per chip than the 
older 1K RAM. This reduces the cost further, especially on 
boards having a lot of memory. 
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Any price quoted would soon be out of date and the price per 
byte depends heavily on the size of board you buy. A quick 

scan through a recent hobbyist publication should give you a 
rough idea of what to expect. 


How Much Do You Need? 


It depends primarily on what you want to do. Quite a bit 

can be done with just the 1K on the basic KIM-1. Even if you 

add a terminal, this 1K should be adequate for small games etc. 
written in assembly language. If you want to use a lot of 

text or go to a higher level language like Basic, you will have 

to expand. Exactly how much you need to expand depends on how 
elaborate your software is. 


Motherboards 





If you want to add more than just one board to the expansion 
connector of your KIM, you should start thinking in terms of 

a motherboard. A motherboard is a group of sockets connected 
in parallel. Buffering is also usually provided so the extra 


, boards don't load the busses. 


If you buy a motherboard specifically for the KIM-1, it will 
also have provision for letting KIM know when one of its boards 
is being addressed. This is so the decoding present on the 
KIM will be disengaged and not conflict with decoding on the 
expansion boards. 


"Standard" Busses 


The largest number of boards made for hobbyist use have a 100 pin 
configuration that plugs into the so-called "S§-100" bus. MOS 
Technology also makes a motherboard for KIM with yet another 

bus. It should be possible to hook the KIM to motherboards 

made for other 8 bit machines too. One group is getting together 
an expansion board for KIM based on the standard 44 pin connector. 


Once you decide on a particular motherboard, you are pretty 
much locked in to buying or building boards whose pins match 
those in the sockets of the motherboard. 


"S-100" Bus 


The §-100 bus derives from the Alta® motherboard. Presumably, 
any board which works in an Altair then should work in any other 
S-100 machine. Unfortunately, that has not always been the case. 
The S-100 bus is popular though and already a couple manufacturers 
have advertised S~100 motherboards meant to be attached to the 
KIM. Because of the competition, S-100 boards sometimes give 

a cost advantage. This is especially true in the case of memory 
boards where competition is fierce. 


NOTE: Altair is a trademark of MITS, Inc. 
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A Caution 


No matter what bus you decide on, you are going to need 
programs written for KIM to drive certain boards you might 
plug in. Unless there is a program for that particular board, 
written for KIM, you are in for a lot of work. 





The Serial Port 


It's not necessary that all expansion take place along the 

data and address busses of your KIM. There is another 
entrance/exit for information - the serial ports. The serial 

I/O, (Input and Output), ports also have the advantage that 
most of the required software already exists in the ROM of KIM. 
For example, to output a character, it is only necessary to 

put that character in the accumulator and jump to the subroutine 
OUTCH (1EA0). The character then comes spewing out the serial 
output port, bit by bit. 


ASCII 


The code that is used in this process is the "American Standard 
Code for Information Interchange", or ASCII for short. The 
hardware connection is also standardized and is made of two 
20 milliamp current loops. The device to be connected to KIM 
should be set up for these standards. Connections are made 
as shown starting on page 17 of the Kim User's Manual. 


The Teletyp@® 

The serial ports were obviously set up with a particular 

machine in mind, the Teletype. The problem is that a new 
Teletype will cost over $1000 and used ones aren't much cheaper. 


Baudot Machines 





Older model Teletypes and some other makes of teleprinters go 
for $25 on up. The difference? These are Baudot machines. 
Where the modern Teletype uses a 8 bit (8 level) code to 
represent ASCII characters, the older machines use a 5 bit 

(5 level) code called Baudot. A good place to find out what 

is available etc. is a series of three articles appearing in 

the April, May and June '77 issues of Byte magazine. 


Teleprinters are noisey, smelly and slow. What's more, the 
interface of a Baudot machine to your KIM is far from a trivial 
problem. Why then even bother with the teleprinter? One reason - 
it's great to have a hardcopy of your program, a piece of paper 

you can sit down and take a pencil to when something goes wrong. 


Video Terminals 





Also easily connected through the serial port are stand alone 
video terminals. These units contain a cathode ray T.V. tube, 
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(CRT), keyboard and all necessary guts to display a large 
number of lines of characters on the screen at ome. Common 
are 12 or 24 lines of 80 characters each. With 80 characters, 
a full 72 character Teletype line can be duplicated, making 
the unit indeed a "Glass Teletype". 


Fewer Characters - Lower Price 


The price of most video terminals is still up around $1000 even 
in kit form. One way to reduce the cost is to reduce the number 
of characters and display the results on an ordinary T.V. set. 

16 lines of 32 or 64 characters are common. 


This type of unit can be purchased as a video board alone or 
along with a keyboard in a nice case. If purchased seperately, 


you will also need a serial interface board. 


Serial/Parallel Conversion 


Remember that we had planned to use the serial I/O ports on KIM. 
The video board or the keyboard is more than likely hooked up 

to input or output in bytes, (parallel input or output). A whole 
byte appears on 8 seperate pins along with a timing pulse, called 
a strobe, on yet another pin. The strobe is used to indicate when 
data is valid. We have to convert this type of input or output to 
the sequential bit by bit information required by the serial port. 


Luckily, there are chips designed especially to do this. They 
are called UART's and are found on serial interface boards. 
One such board was described in issue #1 of Kilobaud, (Jan. '77). 


What-to look for 


Video boards vary considerably in the features they offer. 

The simplist boards begin writing characters in the upper left 

of the screen and continue on down the page. When the end of 
the last line is reached, they return to the upper left corner 

and start over. The only control you might have is a "home" 
signal which retums you to the starting point. Any carriage 
returns, linefeed etc. have to be taken care of by a program which 
is keeping track of exactly where you are. 


A better scheme is to have a cursor which is usually a flashing 

or solid white square located where the next character will 
appear. In more advanced units, you can move this cursor around 
under software (or hardware) control. That way, it's easy to 
back up and go over any mistakes. 





Another handy feature is scrolling. When you reach the end of 
the last line on the screen, it's a little confusing to have 
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the next line start at the top. Instead, some boards automatically 
push every line up to make room for the incoming line, (the top 
line goes off the screen). 


Blank to end-of-line and blank to end-of-screen features are 
necessary to keep from having a lot of unwanted characters left 
on the screen. Be sure to check to find out exactly what features 
are included on the board you are buying. If you can, find 
someone who has a similar board up and running. 


Back To The Busses 





It's not manditory that a video board work off the serial ports. 
‘There are boards made to pluq into most "standard" motherboards. 
These work off the data and address busses directly. In many 
cases, they include memory to hold the characters which looks 
just like any other memory to the processor. This has the 
advantage that any character can be changed instantaneously. 

A board like this is undoubtedly going to require software to keep 
things organized and you'll have to provide programs written 
especially for KIM. 


Hardware vs Software 


With the prices of memory continuing to drop, it's becoming 
cheaper to replace many hardware functions with software. In 
the case of video, you can use software not only to keep track 
of what characters go where; you can also use it to generate 
most of the display itself. This tends to reduce the cost 
considerably. 


Using this fact, Don Lancaster describes a T.V. Typewritter 
addition to the KIM for $25-$35, (Kilobaud #6, June '77 or 
Popular Electronics, July '77 and August '77). Buta word of 
caution. You'll have to "chop up" your KIM a bit to implement 
this- the project involves cutting a piece of KIM's printed 
circuit foil, plus wiring in a whole bunch of new wires. And 
while the changes don't affect KIM's operation, you have to 
recognize that memory expansion becomes a different ball game. 
Don uses the addresses from 2000 to EFFF, and that means 

that you can't just add on extra memory in those areas. 


Dedicating the processor to running the display in this manner 
also means that it is going to have to "steal" time from this 
job to run your programs. This can slow things up a bit. 


Keyboards 


The keyboard also doesn't have to come into the serial port. 
Some video boards have a keyboard port built in. Another 
possibility is the parallel I/O ports on the KIM itself. Again, 
you'll have to provide the necessary software, but it would 
save you from having to buy a Serial interface board. 
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If you are thinking of running both the keyboard and video board 
off the parallel ports of KIM, you should add up the total number 
of lines you need. By the time you include all necessary strobe 
lines, you will probably find you don't have enough ports available. 


Hooking To Your T.V. 


When you hook a video board toa T.V. set, make sure that the 
T.V. has a transformer which isolates the set from the A.C. 
line. 110 volts can ruin a lot of chips in a hurry! 


There are two ways of putting the video signal in the T.V. 

If you want to go into the antenna terminals, you will need a 
board which generates a regular T.V. frequency signal with 
the video signal being imposed upon it. Kits are available 
for $10 - $15. 


A method less susceptible to interference problems is to go 
directly into the video amplifier of the set. AT.V. repair 
shop should be able to handle this if you can't. About the 
simplest circuit was given in July '76 Byte, p. 38. Another 
appeared in Kilobaud #7, (July '77 p. 30). Kits are available 
to make this type of conversion also. 


Video Monitors 


A video monitor is like a T.V. set without the ability to pick 

up channels. It just takes a standard video signal (like 

the one coming from a video board) and puts it on the screen. 
Because they have a larger bandwidth than the normal T.V. set, 
they can display more information without the characters getting 
fuzzy. 


Costs 


At the present time, (Summer '77), you can expect to pay $150 - 
$250 for a video board, $50 - $150 for a keyboard and over $300 
for the combination in a box along with a serial interface. 

Most of the serial interface is in the UART chip which sells 

for about $10. Kits may be available for about $25 - $50. 
Motherboards run $100 - $150 and a video monitor will cost 
around $150 ~ $200. 


Graphics 


If you want to use your KIM for simulating video games ona 
T.V., you should be thinking in terms of a graphics board. 

The graphics boards that are used with T.V. sets generate many 
tiny white rectangles, squares or dot patterns on the screen. 
these can be individually turned on or off at will. Some video 
boards meant to display characters also have limited graphics 
capability. 
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Printers 


There are a number of printers on the market which use many 
small solenoids to form dot patterns through a typewritter 

ribbon onto paper. These dot pattems form characters faster 
than can be done with a typewritter or teleprinter. Some use 
adding machine paper and others, a standard size sheet. Prices 
run from $250 on up. 


Also available are printers which use a specially sensitized 
paper and print using a thermal process. 


Floppy Disks 


Once you start reading in programs which require 4K or more of 
memory, you are going to find the cassette interface on your 
KIM a little slow. Even with Hypertape, it will take about 

1 1/2 minutes to read in 4K. 


There are faster tape units on the market, but the ultimate as 

far as the hobbist is now concemed is the "floppy". The floppy 
disk is like a flexable phonograph record coated with iron oxide 

as is used on tapes. A read/write head is moved radially outward 
from the center to read or write on different "tracks". The main 
advantage over tape is the speed at which any block of information 
can be located. The information is also put on very compactly 
and reading it back takes only a few seconds at most. 


The mechanism to do all this is a precision piece of equipment 
and quite expensive. Prices are continuing to drop however 

as the demand becomes greater. The electronics necessary is 
also quite complex, but as with the UART, single chips are now 
being made which do most of the job. 


Floppies are often used in pairs. One reason for this is to 

be able to back up what is stored on a disk. One disk is 
simply copied to another. Since each disk may store over 1/4 
million bytes, you can see how time consuming this would be 
if you tried to read all information into memory and back out 
on another disk. Smaller versions of floppies using a 5" 
diskette (with less storage capacity) are also available at 
somewhat lower prices. 


Again, you need not only the floppy drive and controller 
(electronics), but also the necessary software written for KIM. 
The operating system software that goes with floppies is quite 
complex. But then, it's also very powerful. 
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SOFTWARE TO EXPAND YOUR KIM 


In addition to building extra devices onto your KIM system, 
like teletype, display, or more memory, you can increase the 
power of your system with special programs called software. 


The name, software, is often misunderstood. Software, strictly 
speaking, refers to programs that help you do the job. 

They are helping orograms, not doing programs. For example, 

if you write a program to play a game, that's not software - 

it's called an application program, for it actually does something. 
But the programs that help your game, such as the Monitor 
subroutines that you may call, are software. They don't do the 
job, but they sure help. 


Most of the extra software that we'll talk about here will 
require extra memory to be fitted to your KIM system. 


Assemblers 


If you've tried writing a program, you may have noticed that 
converting your coding into KIM's machine language is quite 

a tedious job. For example, you may have written the command 
LDA TOTAL to load the accumulator with a zero page quantity 
that you have called TOTAL. RBefore you can enter the program, 
you must convert this to the 6502 code: AS (for LDA from zero page), 
63 (the zero page location you have chosen for TOTAL). 

Not too hard, perhaps; but you must look up the code and keep 
track of the addresses If your program contains dozens of 
instructions, this conversion - called hand assembly - can 
become quite a chore. 


An assembler program will do the conversion for you, quickly, 
neatly, and without error. If you have a hard copy printing 
device, it will give you a complete printout (called a "listing") 
of your program. 


A resident assembler works on program data held entirely within 
KIM's memory. It's very fast, but it does need lots of memory 

to hold all of your program information. Other assemblers work 
from data stored on magnetic tape or on floppy disk. They are 
slower, since the data must be copied into memory as it's needed, 
but allow your programs to be almost unlimited in size. 

A cross-assembler will assemble your KIM program on a completely 
different machine, such as a Digital Equipment Corporation PDP-11 
or a commercial time-sharing processor. Because these other 
computers are not so limited in size compared to the KIM, they 
can be very powerful. 
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Dis -Assemblers 


A disassembler works in reverse from an assembler. If you have 
a program in KIM machine language, the disassembler will print 
it out in the more easily readable assembly language. Very 
handy for investigating a working program, if you don't have 

the listing. 


For examvle, if you have coding starting at address 020F that 
reads: CA 10 F8 AD 04 17 85 80 ,.. , the disassembler would 
print something like this: 


O20F CA DEX 

0210 10 F8 BPL 020A 
0212 AD 04 17 LDA 1704 
0215 85 80 STA 0080 


As you can see, this is much more readable. 


Interpreters (BASIC ,FOCAL, etc.) 


There are several "high level" languages that are much easier 

for writing programs than KIM (6502) machine language. 

With the proper software package, KIM can translate these 

high level instructions and perform the desired actions. 

The translation job takes time, so KIM will run many times slower 
than its normal "machine" speed. Programming convenience is 

so great, however, that most users don't mind the loss of speed. 


Interpreters can take up quite a bit of memory ~ anywhere from 
2K to 16K locations - so you'll have to be fitted with the 
appropriate amount of memory expansion. If you hear of an 

8K Basic interpreter, you'll know that means 8,000 locations 
for the program; and of course you'll] need to provide extra 
memory to fit your own programs in. 


A brief example will show how simple a language like BASIC 
can be for programming. To input a number from your keyboard, 
and type its square, you need only write: 


50 INPUTA receive value "a" from keyboard 
60 LET B= A*A "*" means multiplication 

70 PRINT "THE SQUARE OF ";A;" IS ";B 

80 STOP 


See how easy it is? KIM must read each line, character by character, 
decide what it means: inputting, calculating, printing or whatever, 
and then perform that action. KIM works hard, but you don't, 
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Text Editors 


It can be very handy to compose a number of lines of material 
such as a letter, a program, or general data; put it into your 
KIM system; save it permanently on tape or disk; and then later 
recall it and change, insert or delete information. 


If you're writing a letter, you can correct mistakes and insert 
new thoughts as they occur to you, perhaps even generating 
several slightly different versions to mail to various people. 
If you have a program, you can correct bugs as you find them 
and insert new coding as needed Mata files can be kept up 
to date. 


Text Editors are very important with other software such as 
assemblers and interpreters; often, they are built in. 


Mathematical Packages 


Each memory location in KIM can store a number from 0 to FF 
hexadecimal, or 0 to 255 decimal. Ther are no fractions, 

and you have to make special arrangement for signed (positive 
and negative) numbers. You can link memory locations together 
to hold larger numbers; but extremely large numbers and fractions 
call for special mathematical techniques to be used. In addition, 
KIM gives you only addition and subtraction; you have to work 
out multiplication and division for yourself, to say nothing of 
more complex functions like square roots and vowers. 


You can program all this yourself, if you have the time and 

the mathematical background. But if you really need to perform 
advanced math on your KIM, you'll be better off to obtain 

a pre-written mathematical package. 


Floating-point on computers means about the same as the term 
"Scientific Notation" on calculators. It lets you use fractions 
and deal with very large and very small values , In addition, 
you'll often get extra functions - powers, roots, logarithms, 
and trigonometric functions such as sines and cosines. 


Many mathematical functions are often included in large interpreters. 
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CONNECTING 
TO THE WORLD 








KIM RUNS THE WORLD OR HOW TO CONNECT YOUR MICROPROCESSOR 
TO EXTERNAL DEVICES 
By Cass Lewart 


Introduction ~- Calculator versus Computer 





Most of you are familiar with the ubiquitous pocket 
calculator. From the simple "four-banger" to the most 
sophisticated card-programmable, the sequence of ope- 
rations is always the same. You enter numbers from 
either the keyboard or a program card, depress a few 
keys, the calculator "crunches" your input and out 
come the processed numbers on the display or printer. 


Though a calculator will do a great job of processing 
numbers, just try to make it perform a simple trick 
of a different kind - e.g., ring a bell after comple- 
ting the 150th iteration. No way: A calculator is 

a closed system. In general it is not possible to 
attach to it external devices not: envisioned during 
the original design. A microprocessor such as KIM is 
quite different in this respect. In fact frequently 
its main functions are not to "crunch" numbers but to 
receive signals from various sensors such as photocells, 
thermostats, switches or pressure transducers, to do 
a small amount of processing of these inputs and then 
to control devices such as lights, motors, relays 

or even to play music. 


In this chapter we will try to show you how easy it is 
for KIM to perform operations of the type described. 
KIM via its input/output ports can receive and transmit 
control signals. Its built-in precision quartz crystal 
controlled time reference and a built-in interval timer 
further simplify various controlling tasks. 


KIM Ports ~- KIM Taiks and Listens 
KIM has four special memory locations which are used 


for input, output and various applications. Great 
things happen if you store numbers in these locations! 
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Location 


1700 Contents of Application Port A 
1701 Data Direction of Port A 
1702 Contents of Application Port B 
1703 Data Direction of Port B 


The data contents locations 1700 and 1702 store the 

data transmitted to or from KIM while the data direction 
locations 1701 and 1703 determine which port operates 

in the input and which in the output mode. These four 
special memory locations can be accessed by KIM programs 
in the same way as any other location. In addition 

the application port A in location 1700 and the appli- 
cation port B in location 1702 are also accessible on 
connector pins. They represent the physical interface 
of KIM. By monitoring the appropriate pins with a volt- 
meter one can detect the data stored in memory locations 
1700 and 1702 when KIM is in the output mode. By setting 
the appropriate pins to ground or to Vga (+5 Volts) one 
can feed data into KIM in the input mode. 


As KIM is an 8-bit microprocessor, each of the two 
ports A and B actually consists of eight independent 
inputs or outputs. Each of the eight bit positions 
from O through 7 appears on a different connector pin 
and is a port in itself. The following are connector 
pin assignments for the A and B application ports. 
For example PAO represents the O-th or the least sig- 
nificant bit of port A and PA7 the 7-th or the most 
significant bit. Pin A-14 means Application connector 
(lower left), the 14-th pin counting from the top, 

on the upper side of the connector (the lower side 

of the connector is designated by letters instead of 
numbers). 


Connector Pin Assignments 


Port Pin Port Pin 
PAO A-14 PBO A-9 
PA1 A-4 PB1 A-10 
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Port Pin Port Pin 


PA2 A-3 PB2 A-11 
PA3 A-2 PB3 A-12 
PA4 A-5 PB4 A-13 
PAS A-6 PB5 A-16 
PA6 A-7 PB6 Not accessible 
PA7 A-8 PB7 A-15 


To assign any of the above connector pins to either 
input or output mode we have to store a "magic" 
number in location 1701 to control port A or in 
location 1703 to control port B. A "1" stored in 
a specific bit position makes the corresponding 
port into an output, a "O" into an input. For 
example, to assign PA7 to output and PAO through 
PA6 to input requires storing 10000000 or 80}.x in 
location 1701. In the following example although 
we deal only with port A, all the remarks apply 
equally to the port B. 


Example - Burglar Alarm 


Let's suppose that: we want to design a system under 
KIM control such that PAO through PA6 are connected 
to seven normally closed burglar alarm switches 
while PA7 should control a warning bell. We want 
the bell to start ringing as soon as one of the 
contacts opens. The bell should keep ringing even 
if the contact closes again. We will first describe 
the software, or the programming part of the problem, 
and then will show you the actual circuit. We assume 
that by now you scanned through the KIM software 
chapters and are familiar with its basic instruction 
set. 
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Burglar Alarm Program 


Loc Code Mnemonic Comments 

00 A9 80 LDA #80 Set PAO through PA6 to 
02 8D 01 17 STA 1701 an and PA7 to output 
05 AS 00 LDA #00 Set output to 0 

07 8D 00 17 STA 1700 Will affect PA7 only 

OA AD 00 17 LDA 1700 Read 1700 to find if PAO 
OD 29 7F AND #7F through PA6 contain all 
OF C9 7F CMP #7F "1"s (closed switches) 
11 FO F7 BEQ OA All are closed, go to OA 
13 AQ 80 LDA #80 At least one switch open, 
15 8D OO 17 STA 1700 ae alarm 


18 4C 13 00 JMP 0013 Stay in the loop 


Now let's look at the simple circuit to operate our 
burglar alarm. We connect PAO through PA6 pins directly 
to the switches. If a switch is closed then the voltage 
at that port is 0 Volts (ground); as soon as the switch 
opens, an internal resistor located on the KIM board 
"pulls" the port to the positive voltage Va, of 5 Volts. 
All ports except PB7 are equipped with built-in resis- 
tors, Called "pull-up" resistors connected to Veg, which 
set voltage at a port to V,, when the port is in the 
input mode and is not connected to ground. On the output 
port PA7 is connected to the base of an amplifying tran- 
sistor which drives a relay to operate an alarm bell. 
The transistor is necessary because the maximum availa- 
ble current of each KIM port is only on the order of 

1 mA. This current would not be sufficient to drive 

a relay directly. 
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Ararm 


BURGLAR ALARM CIRCUIT 
SWITCHES . 





Multiple Drives 


Now suppose you want KIM to drive several devices 
rather than a single one. For example you may want 
to connect a 3 x 3 matrix of LED lights to the A and 
B ports to play tic-tac-toe. The simplest way to do 
this is by using one of the inexpensive digit driving 
ICs, such as 75492 used in many calculator circuits. 
Each of these ICs will drive up to 6 lights, relays 
or what have you with the simple circuit shown below. 
The six IC outputs act as "sinks", which requires 
that you connect one side of your electric load to 
the positive battery voltage and the other side to 
one of the IC outputs. When the appropriate port is 
"on" current will flow through your loads; when the 
port is "off", current will stop. The maximum current 
through each load is 200 mA. 


MULTIPLE KIM INTERFACE 


1% 8 +5-S VOLTS + + 
15492 r LED 
&?) In4o00 
' z 70 6 | “50-300 
FROM LoAnos 
KIMl4 


- RELAY 
Smatt <200mA 
LAMP 
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AC Control © 


To go one step further we can show you how KIM can 
operate AC devices without relays. However we would 
like to caution you that the power line voltage of 
110 Volts AC and the low voltages in your KIM do not 
mix easily. You may even achieve a non-voluntary 
beautiful pyrotechnic display. In other words, if 
you are not careful in your soldering techniques 

and like to leave a few wires dangling "just in case" 
we would recommend that you skip the following 
paragraph. 


The circuit we show here electrically separates KIM 
from the power line by means of a lamp/photocell 
interface. The amplified voltage from one of the 
KIM ports turns on an incandescent lamp or an LED 
which lowers the resistance of a photocell which 
then turns on the electronic TRIAC switch. This 
simple and inexpensive circuit can easily control 
an AC lamp or appliance of up to 600 Watts. 


AC INTERFACE eo 





: me 
Pore o* 
v J <P em 
+5 @ To LIGHT 
PHOTOCELL OR APPLIANCE 






MTL 2oov J6A 
GE SCI4I OR 
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75492 
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OUTLET 
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KIM versus Hardwired Logic 


We have showed you how KIM can control relays, lights 
and AC operated devices but these applications hardly 
tap KIM's capabilities. With the same methods you 

can also switch tracks on a model train layout, control 
traffic lights, and keep your fans and air conditioners 
going. The beauty of performing such tasks with a com- 
puter rather than with hardwired relay logic is that 
logical responses and changes in rules can easily be 
implemented by changing a few statements in your prog- 
ram. A redesign of a hardwired circuit on the other 
hand is always difficult, time consuming, frequently 
impossible without starting your design from scratch. 


D/A and A/D Converters 


So far we have discussed on/off type controls such as 
switches or relays which are either open or closed. 
However, there are many areas where a proportional 
control with “shades of gray" instead of black or white 
would be more desirable. For example if you are inte- 
rested in electronic music you would like to shape 

the electric signals driving your amplifiers and speakers 
into sinusoids, triangles and seesaws to mimic various 
instruments. Though even with a simple on/off control 
you can create sounds, their acoustical range is very 
limited. If you connect an audio amplifier to one of 
the KIM ports and listen to the sound generated by 

the 5 Volt pulses of various length and at various 
repetition rates the sound will remind you only of 

a variety of buzz saws and not of musical instruments. 
The next step therefore is to develop a digital-to- 
analog (D/A) interface for your KIM. Such an interface 
will, for example, translate an 8-bit binary number 

on ports AO through A7 into a voltage proportional 

to the numerical value stored in location 1700 (Port A). 
A number FFpex stored in 1700 could then generate 

2.0 Volts, while 20hex stored in the same location 
would generate (32/255) x 2.0 = 0.25 Volts. Though 

we will not describe a D/A converter in detail, it 

can easily be built with either separate amplifiers 

or with specially designed ICs. An example of a rela- 
tively inexpensive converter is MC1408L by Motorola. 
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Similarly an analog-to-digital (A/D) converter inter- 
face can be used to tur KIM into a measuring instrument 
such as a digital voltmeter, thermometer or even a 
speech recognizer. Applications of a microprocessor 
equipped with D/A and A/D converters are limited only 
by your imagination and by your wallet. 


Interval Timer 





Many applications which interface KIM to the outside 
world benefit from the addition of a timer. For 
example, you may want the train in a model train 
layout to stop for exactly 45 seconds at a station 
under some conditions but for only 30 seconds under 
other conditions. For this and other purposes as well, 
KIM has a built-in interval timer which can be set to 
various multiples of its crystal controlled cycle 

time of 1 microsecond (107© sec.). By storing a number 
K between 1 and FFyex in one of the special memory 
locations listed below we direct the timer to count 

a specific number of cycles. The special memory 1lo- 
cations used by the interval timer and the longest 
count-down period are as followss 


Location Timer Count Max. Period (sec.) 
(microseconds) For K = FFhex 

1704 Kxl 0.000255 

1705 K x 8 0.002 

1706 K x 64 0.016 

1707 K x 1024 0.26 


Location 1707 is also used to sense that the timer 
has finished counting. By putting the interval timer 
inside a loop the timing can be lengthened to seconds, 
minutes and hours. The timer starts counting as soon 
as a number between 1 and FFhex is stored in one of 
the above four locations by means of the STA (STore 
Accumulator in memory) instruction. When time runs 
out the BIT (test BITs in memory with accumulator) 
instruction returns a non-positive value from lo- 
cation 1707. 
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Timer Example 





The following short program illustrates the use of 


the interval timer. 


after 5 x 64 = 
by the BIT instruction. 
other tasks can be performed by KIM. 


00 
02 
05 


10 
LZ 
15 


Code 
AS 05 
8D 06 17 


2C 07 17 
10 FO 


Mnemonic 


LDA #05 


STA 1706 


BIT 1707 


BPL 05 


The program will leave the loop 
320 microseconds count is detected 
While the timer counts, 


Comments 
Start timer by storing 
5 in 1706 


Perform other tasks 


Check if timer finished? 
If still counting, go to 05 


Otherwise continue 


How KIM Communicates with its own Keyboard and Display 





At first glance the KIM keyboard and the LED display 
seem to be a hardwired fixed part of the micropro- 
cessor and as difficult to access as if they would 
belong to a calculator. 
Both the keyboard and the display can be used quite 
differently from the way they are used by the KIM 


built-in operating system program. 


Fortunately it is not so. 


You can run the 


display and the keyboard under the control of your 
own programs to perform all kinds of tricks. For 
example, you can program the LEDs to display any 
pattern in any digit position which can be made with 
the seven LED segments. 
be used as input to various programs with individual 
keys performing functions unrelated to their numerical 


labels. 
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Similarly the keyboard can 


For example, the "B" key in your program can 


indicate a "Backward" command, while the "F" key can 
mean "Forward". Various game programs shown in other 
sections of this book are examples of such applications. 


We have tried in this chapter to give you a feeling for 
what KIM can do in the way of control applications. 


We hope that by now you have gained some appreciation 
for KIMs potential. 
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POTPOURKI 





GUIDELINES FOR WRITING KIM PROGRAMS 
1. Use of Memory. 


-~-Wherever possible, place your programs in pages 2 and 3 -- 
addresses 0200 to 03FF. It's handy to keep page zero for 
variables - values that change during program run; and 
page one is best left alone because the program Stack 
uses it. The Stack, by the way, only uses a few locations 
- usually. But a small program error can sometimes make 
the stack run wild, which would destroy your page one data. 


--Your variables (changeable data) should be kept in page zero, 
in locations 0000 to OOEE. These addresses are easy to use, 
since you can use zero-page addressing modes which save you 
time and memory. 


2. Program and constants. 


~-Set up your programs in the following pattern: first, 
the main program (starting at address 0200 or higher); 
then your subroutines; and finally your data. 
Keep them all fairly close together, so that when you 
dump the whole thing to cassette tapne it won't take 
extra time to write the ‘blank spaces in between'. 


3. Initial values. 


--Don't assume anything about the beginning values in your 
regjsters or in zero page. If you want to be out of 
decimal mode (and you usually do), make your first command 
a CLD (D8). If you want the accumulator to be zero, 
load it with LDA #$00 (A9 00). Every zero page variable 
that needs to start at a certain value should be set 
to that value by the program. For example, if you 
want address 0043 to start out with a value of 7, write 
LDA #$07, STA 0043 (A9 07 85 43). 


4. General. 


--Make your subroutines simple, with clearly visible entry 
and return points. One of the stickiest problems to find 
is a subroutine that doesn't return via a RTS command, 
but instead jumps straight back to your main coding ... 
ora subroutine that you somehow get into without giving 
the vital JSR command. 


--Avoid super clever programming, such as having the program 
change itself. (It can work... but if it misbehaves, you 
can have a bad time). 


5. Remember: Computers are dumber than humans, but smarter 
than programmers. 
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LIGHTING THE KIM-1 DISPLAY Jim Butterfield 
A. SIX-DIGIT HEXADECIMAL. 


The easiest way to display six digits of data is to use 
the KIM-1 Monitor subroutine SCAND. 


Calling JSR SCAND (20 19 1F) will cause the first four digits 

to show the address stored in POINTL and POINTH (00FA and OOFB), 
while the last two digits of the display show the contents 

of that address. 


If you look at the first three lines of subroutine SCAND 
(lines 1057 to 1059 on page 25 of the listing), you'll 

see how the program 'digs out' the contents of the 

address given by FOINTL/POINTH and stores it in location 
INH (00F9). It's neat programming, and worth studying 

if you’re not completely familiar with the 6502's indirect 
addressing operation. 


Thus, {f you skip these three lines, and call JSR SCANDS 
(20 1F 1F) you will be displaying , in hexidecimal, the 
contents of three locations: POINTH, POINTL, and INH 
This, of course, takes six digits. 


To recap: SGAND will display four digits of address and 
two digits contents. SCANDS will display six digits 
of data. 


Important: in both cases, the display will be illuminated 
for only a few milliseconds. You must call the subroutine 
repeatedly in order to obtain a steady display. 


B. DRIVING THE BITS OF THE DISPLAY DIRECTLY. 


1. Store the value $7F into PADD (1741). This sets the 
directional registers. 


2.To select each digit of the display, you will want to 
store the following values in location SBD (1742): 


Digit 1: $09 
Digit 2: SOB 
Digit 3: $OD 
Digit 4: SOF 
Digit 5: $11 
Digit 6: $13 


Note that this can easily be done in a loop, adding two 
to the value as you move to the next digit. 
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3. Now that you have selected a particular digit, light 
the segments you want by storing a ‘segment control' 
byte into location SAD (1740). The segments will be 
lit by setting the appropriate bit to 1 in SAD according 


to the following table: 7 

ey 2 
¢ . : F{ ; (" 

Rit: 7 5 4 3 2 1 0 come 
center upper lower bottom lower upper top +| (2 

left left right right gi 

"g" wee “eu "q" "co" "pb "a" : 
a) | @ 


For example, to generate a small letter 't', we 
would store $78 (center, upper left, lower left, bottom) 
into SAD. 


4, Now that you have picked a digit and lit the appropriate 
segments. wait a while. Sit in a delay loop for 
about 1/2 millisecond before moving on to the next digit. 


THE KIM-1 ALPHABET, 





Some letters, like M and W, just won't go onto a 7-segment 
display. Some, like E, are only possible in capitals; others, 
like T, can only be done in lower case. So here's an 
alphabet of possibles: 


A - SF7 

B - SFP b - SFC 

Cc - $R9 c - $D8 

D - SBF d - SNE 

E - SF9 

F - SFI f - SFl 

G - SBD g - SEF 

H - SF6 h - SF4 1 - $86 

I - $86 i - $84 2 - SDB 

J - S9E j - S9E 3 - SCF 

L - SB8 1 - $86 4 - SE6 
n $D4 5 SED 

O - SBF o - $DC 6 - SFD 

Pp - $F3 p - SF3 7 - $87 
r - $pD0 8 SFF 

8S - SED 9 - SEF 
t - SF8 0 - SBF 

U - SBE u - $9C minus $co 

Y - SEE y - SEE 
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The following is reprinted from the KIM-l User Manual with permission 
from MOS Technology. 


Interval Timer 


l. Capabilities 


The KIM-1 Interval Timer allows the user to specify a preset 
count of up to 25610 and a clock divide rate of 1, 8, 64, or 1024 
by writing to a memory location. As soon as the write occurs, 
counting at the specified rate begins. The timer counts down at 
the clock frequency divided by the divide rate. The current timer 
count may be read at any time. At the user's option, the timer 
may be programmed to generate an interrupt when the counter counts 
down past zero. When a count of zero is passed, the divide rate 
is automatically set to 1 and the counter continues to count down 
at the clock rate starting at a count of FF (1 in two's comple- 
ment arithmetic). This allows the user to determine how many clock 
cycles have passed since the timer reached a count of zero. Since 
the counter never stops, continued counting down will reach 00 
again, then FF, and the count will continue. 


2- Operation 


ae Loading the timer 
The divide rate and interrupt option enable/disable are 


programmed by decoding the least significant address bits. ‘The 
starting count for the timer is determined by the value written to 
that address. 


Writing to_Address Sets Divide Ratio To Interrupt Capability Is 


1704 1 Disabled 
1705 8 Disabled 
1706 64 Disabled 
1707 1024 Disabled 
170C 1 Enabled 
170D 8 Enabled 
170E 64 Enabled 
170F 1024 Enabled 


be Determining the timer status 
After timing has begun, reading address location 1707 will 
provide the timer status. If the counter has passed the count of 
zero, bit 7 will be set to 1, otherwise, bit 7 (and all other bits 
in location 1707) will be zero. This allows a program to "watch" 
location 1707 and determine when the timer has timed out. 





c. Reading the count in the timer 
If the timer has not counted past zero, reading location 


1706 will provide the current timer count and disable the inter- 
rupt option; reading location 170E will provide the current timer 
count and enable the interrupt option. Thus the interrupt option 
can be changed while the timer is counting down. 
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/If the timer has counted past zero, reading either memory 
location 1706 or 170E will restore the divide ratio to its pre-= 
viously programmed value, disable the interrupt option and leave 
the timer with its current count (not the count originally writ- 
ten to the timer). Because the timer never stops counting, the 
timer will continue to decrement, pass zero, set the divide rate 
to 1, and continue to count down at the clock frequency, unless 
new information is written to the timer. 


d. Using the interrupt option 


In order to use the interrupt option described above, line 
PB7 (application connector, pin 15) should be connected to either 
the IRQ (Expansion Connector, pin 4) or NMI (Expansion Connector, 
pin 6) pin depending on the desired interrupt function. PB7 
aca be programmed as in input line (its normal state after a 
RESET), 


NOTE: If the programmer desires to use PB7 as a normal 
I/O line, the programmer is responsible for dis- 
abling the timer interrupt option (by writing or 
reading address 1706) so that it does not inter- 
fere with normal operation of PB7?. Also, PB7 was 
designed to be wire~ORed with other possible inter- 
rupt sources; if this is not desired, a 5.1K resis- 
tor should be used as a pull-up from PB7 to +5v. 
(The pull-up should NOT be used if PB7 is connected 
to NMI or IRQ.) 
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IMPORTANT! ! 


The KIM Cassette Tape Interface 





The KIM-1 USER GUIDE doesn't emphasize one vital 
instruction in telling you how to read and write tapes. 


BEFORE READING OR WRITING MAGNETIC TAPE, BE SURE 
TO SET THE CONTENTS OF ADDRESS OOF1 TO VALUE 00. 


This ensures that the computer is not in Decimal Mode. 
The key sequence is ADOO0OF1DA0 OAD. 


If you forget to do this, you're likely to have trouble with 
audio tape. You might write bad tape ~ which can never be 
read back in correctly; and you might find yourself unable 
to input properly from tape. Many of us have run into this 
problem, and have wasted countless hours trying different 
tapes and recorders or even investigating KIM's electronics. 


You'll find KIM audio tape to be 100% reliable, even on 
inexpensive recorders, providing you follow this rule and 
‘always ensure that location OOF! is set to zero. 
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NOTES ON A RANDOM NUMBER GENERATOR Jim Butterfield 





It's not my original idea - I picked up it from a technical 
journal many years ago. Wish I could remember the source, 
so I could credit it. 


This program produces reasonably random numbers, and it won't 
"lock up" so that the same mumber starts coming out over and 

over again. The numbers are scattered over the entire range 

of hexadecimal 00 to FF. A Statistician would observe that 

the numbers aren't completely "unbiased", since a given 

series of numbers will tend to favor odd or even numbers slightly. 
But it's simple, and works well in many applications. 


Here's how it works. Suppose the last five random mumbers 
that we have produced were A, B, C, D and E. We'll make a 
new random number by calculating A +B+E+1. (The one 
at the end is there so we don't get locked up on all zeros), 
When we add all these together, we may get a carry, but 

we just ignore it. That's all. The new "last five" will 
now be B, C, D, E and the new mumber. To keep everything 
straight, we move.all these over one place, so that B goes 
where A used to be, and so on. 


The program: 


xox: DS RAND CLD clear decimal if needed 
xox 38 SEC carry adds value l 
woox A5 13 43 LDA RND+1 last value (E) 
wo 65 16 ADC RNDt) add B (+ carry) 
xoxox 65 17 ADC RND# add C 

xox 85 125e STA RND new number 
xxxx A2 Ok Ux #4 move 5 numbers 
xoooe BS 125° RPL LDA RND,X 

xox 95 135% STA RND+1,X ..move over 1 
xox CA DEX 

xox 10 FY BPL RPL all moved? 


The new random number will be in A, and in RND, and in RND+1. 
Note that you must use six values in page zero to hold the 
random string ... I have used 0012 to 0017 in the above coding. 


You often don't want a random number that goes all the way 
up to 255 (Hexadecimal FF). There are two ways of reducing 
this range. You can AND out the bits you don't want; 

for example, AND #$7 reduces the range to 0-7 only. 
Alternatively, you can write a small divide routine, and 
the remainder becomes your random numbers; examples of this 


can be seen in programs such as BAGELS. 
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The one publication that devotes all of its space to the KIM-1/6502 
machines is: 
KIM-1/6502 USER NOTES 
109 Centre Ave., 
W. Norriton PA 1901 


Six issues of this bimonthly newsletter costs U.S.$5.00 for North 
American subscribers and U.S.$10.00 for international subscribers. 


Here's some pointers to other KIM-1/6502 articles- 


BYTE- 
November 1975 (p.56) = Son Of Motorola 
- A description of the 6502 instruction set and comparison 
with the 6800. 





May 1976 (p.8) = A Date With KIM 
- An in depth description of KIM 





August 1976 (p44) - True Confessions: How I Relate To KIM 
- How to; use cheap memories with KIM by stretching the clock; 
expand memory; implement interrupt prioritizing logic; sim- 
ulate a HALT instruction. 





March 1977 (p.36) = 6502 op code table 


March 1977 (p.70) - Simplified Omega Receiver Details 


~ Using the 6502 for signal processing in a low cost navigation 
receiver (Mini-Omega). 


April 1977 (p.8) = Kim Goes To The Moon 
- A real-time lunar lander program for KIM 


April 1977 (p.100) - Navigation With Mini-O 
- Software details for a phase~tracking loop filter using Jolt 


or KIM. 


June 1977 (p.18) = Designing Multichannel Analog Interfaces 
- Hardware and 6502 software for an 8 channel analog I/0, 





June 1977 (p.46) ~ Teaching KIM To Type 
- Hardware and software for hooking KIM up to a Selectric. 





June 1977 (p.76) - Come Fly With KIM 
~- Hardware and software for interfacing a Fly Paper Tape Reader 
to KIM. 





July 1977 (p.126) - Giving KIM Some Fancy Jewels 
- How to outboard KIM's seven-segment displays. 





DR. DOBBS-= 
March 1976 (p.17) - 6502 Breakpoint Routine 


August 1976 (p. 17) = 6502 Floating Point Routine 
August 1976 (p.20) = Monitor For The 6502 
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August 1976 (p.21) - Lunar Lander For The 6502 
September 1976 (p.22) - 6502 Disassembler 

September 1976 (p.26) = A 6502 Number Game 

September 1976 (p.33) - 6502 String Output Routine 
November 1976 (p.50) 6502 String Output Routine 
November 1976 (p.57) = 6502 Floating Point Errata 
February 1977 (p.8) - More 6502 String Output Routine 


INTERFACE AGE= 





September 1976 (p.14) = A 6502 Disassembler 

October 1976 (p.65) - Interfacing The Apple Computer 
- How to: hook a SWIPPR-40 to the Apple 6502. 

November 1976 (p.12) - Build A Simple A/D 


- Hardware and 6502 software for simple joystick (or 
whatever) interface. 


November 1976 (p.103) - Floating Point Routine For 6502 


April 1977 (p.18) - 'Mike'"-A Computer Controlled Robot 
- Hardware and 6502 software for a KIM controlled robot like 
vehicle. 
KILOBAUD= 


January 1977 (p.114) - A Teletype Alternative 
~ How to: Convert a parallel input TVT to serial operation; 
interface to KIM. 





February 1977 (p.8) - Found: A Use For Your Computer 
April 1977 (p.74) = KIM-1 Memory Ex ion 
- How to: Add an $89.95 GK Ram board to KIM. 


May 1977 (p.98) - Adding "PLOP" To Your System 
- A 6502 noisemaker for computer games. 





June 1977 (p.50) - A TVT For Your KIM 





NOTE: Kilobaud now has a monthly KIM colum. 
MICROTREK= 


August 1976 (p.7) - KIM-1 Microcomputer Module 
- A very in depth look inside KIM. 





POPULAR ELECTRONICS= 


July 1977 (p.47) - Build The TVT-6 
- How to: KIM-1 TVT (same as Kilobaud #6). 
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73. MAGAZINE 


January 1977 (p.100) - Bionic Brass Pounder 
- How to: Turn KIM into a smart morse code keyboard. 
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6502 SOFTWARE SOURCES 


(as of summer 1977) 


ARESCO 

314 Second Ave. 

Haddon Hts., New Jersey 
08035 


The Computerist 

P.O. Box 3 

S. Chelmsford MA 
01824 


Itty Bitty Computers 

P.O. Box 23189 

San Jose, Calif. 
95153 


MICROWARE 

27 Firstbrooke Rd. 
Toronto, Ontario 
CANADA M4E 2L2 


MICRO- SOFTWARE SPECIALISTS 
P.O. Box 3292 

E. T. Station 
Commerce, Texas 75428 
6502 Program Exchange 
2920 Moana Lane 

Reno, Nevada 89509 


Pyramid Data Systems 

6 Terrace Ave. 

New Egypt, New Jersey 
08533 


Julien Dubé 

3174 Rue Douai 

Ste-Foy, Quebec G1W 2X2 
Canada 
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Focal, 2 1/2K assembler 
6K assembler/text editor 
(send S.A.S.E. for info) 


Please Package, Help, 
editor and mailing list 
packages 

(send S.A.S.E. for info) 


Tom Pittman's 
Tiny Basic 
(send S.A.S.E. for info) 


MICROCHESS, (Chess in 
1k), assembler 
(send S.A.S.E. for info) 


2K assembler /editor 
(send S.A.S.E. for info) 


Focal, Focal programs, 
Kim and TIM programs 
(send 50¢ for program list) 


1K monitor system. 
(send S.A.S.E. for info) 


Baudot Monitor 
(send S.A.S.E.) 


Jim Butterfield 

14 Brooklyn Avenue 

Toronto, Ontario, Canada 
M4M 2X5 


Lew Edwards 
1451 Hamilton Ave. 
Trenton 9, N.J. 08629 


Ron Kushnier 

3108 Addison Ct. 

Cornwells Hts., Penna. 
19020 


Stan Ockers 

R.R.#4, Box 209 

Lockport, I1l. 
60441 


Charles Parsons 

80 Longview Rd. 

Monroe, Conn. 
06468 


Eric Rehnke 

109 Centre Ave. 

W. Norriton PA 
19401 


Charles Eaton 

19606 Gary Avenue 

Sunnyvale, California 
94086 


Peter Jennings 

27 Firstbrooke Rd. 

Toronto, Ontario Canada 
M4E 2L2 


Cass Lewart or 

Dan Lewart 

12 Georjean Drive 
Holmdel, N.J. 07733 


James Van Ornum 

55 Cornell Drive 

Hazlet, N.J. 
07730 


Jim Pollock 

6 Terrace Ave. 

New Egypt, New Jersey 
08533 


Joel Swank 

#186 

4655 S.W. 142nd 
Beaverton, Ore. 97005 


RHEE KAKI KEKE EKER ERK KKR KR 


Here are the folks responsible. They eagerly await your 
praise, comments, criticism, indignation - whatever... 
Please do the courtesy of enclosing a self-addressed 
stamped (if possible) envelope (SASE) if you wish a reply. 
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5115-0 
$8.95 


THE FIRST BOOK OF KIM 
JIM BUTTERFIELD, STAN OCKERS, and FRIC REHNKE 


Here is a step by-step guide that will take you through the fundamentals of 
writing KIM programs. This beginner’s guide includes dozens of examples 
of programs that are run on a basic KIM-1 system. These programs include 
games and puzzles such as Blackjack, Chess Clock, Horserace, Lunar 
Lander, Music Box, and Ping Pong, which are fully descriled so that you 
can learn from the prc jramming techniques illustrated as weil as have fun 
playing the games. 

The authors go into detail on how you can expand your KIM from the 
basic small-but-powerful KiM-1 system to a huge-and-super-powerful ma- 
chi-e. They include diagnostic and utility programs to help you build evira 
dev.ces onto your KIM system, such as teletype, display, or more mer cory. 
The book also covers the jarpon of KIM programming and what's available 
in both hardware anc! software :>r the KIM microprocessor. 


dither Books of interest... 


HOW TO BUILD A COMPUTER-CONTROLLED ROBOT 

TOD LOCFBOURR@W 

Lise the KIM-1 microprocessor t ; build your own computer-controlled robot. 
hé.e are ster by-step directions for the construction of a robot with the 
complete contre! programs clearly written out. Photographs, diagrams, and 
tables direct you thro .sh ihe construction. #5681-8, paper. 


BAS'C BASIC: Ar: Introduction to Computer Programming in 
BASIC Language, Second Edition 

ars 

sDVANCED BASIC: Applications and Problems 

BUTH by JAMES S. C@AN 

The complete nicture cf the BASIC language. One introduces the lenguaye 
through an integratic2 of programming and the teaching of mathemati-s. 
The otr-:r offers advanced techniques and applications. Both begin with 
short, compiete programs and progress to more sophisticated prcbiems. 
Basic BASIC, #5106-S, paper, #5107-7, cloth; Advanced BASIC, #5855-1. 
paper, #5856-%, cloth. 


HOn E COMPUTER SYSTEMS HANDBOOK 
S@L LIFES 


An ov :rview of the new world o; home computing. Provides the basics of 
digital logic, "umber systems, computer hardware, and software to intel- 
figeni y purchase, assemble, and interconnect components, and to program 
the rnicrocomputer. +#5678-8, paper. 


La 


HAYDN BOOK COMPANY, INC. 
Rochelle Park, New Jersey 


iSBN 6-6104-5119-0 


